
File Number 1401-28 
Form J24-0215-2 




Systems Reference Library 



Report Program Generator 

IBM 1401 Card and Tape Systems 



This reference publication contains, language specifi- 
cations for Report Program Generator for ibm 1401 
Card and Tape Systems. The descriptions of the speci- 
fications sheets and the rules and conventions for writ- 
ing them constitute the major portion of this publi- 
cation. Also included, is information about machine 
processing of the source deck to produce the object 
program and machine processing of the input data file 
to produce a report. 

For titles and abstracts of associated publications, 
see the IBM 1401/1460 Bibliography, Form A24-1495. 











Contents 



Introduction 3 

First Phase of Report Generating 10 

General Description 10 

Correlating the Report Specifications 12 

ibm 1403 Spacing Chart 12 

Input Specifications 16 

Data Specifications 22 

Calculation Specifications 29 

Format Specifications 34 

Control Card 44 

Special Feature Specifications 44 

Summary of First Phase of Report Generating 44 

Second Phase of Report Generating 45 

Checking the Specifications 45 

Third Phase of Report Generating 46 

Program Storage Requirements 46 

Fourth Phase of Report Generating 47 

Sense Switches 47 

Suggestions and Recommendations 48 

Split Control-Fields in Input Records 48 

Program Efficiency 48 

Description of the General Block Diagrams 51 

Object Program to Process Card Input Files 51 

Object Program to Process Tape Input Files 54 

Inserting Subroutines in Object Program 58 

Subroutine Labels 58 

Suppressing Total Lines and Calculations 59 

Sample Report Documentation 59 

Index 74 



Minor Revision, February 1965 

This publication is a reprint of an earlier edition with the format 
changed to conform to that of the Systems Reference Library. 
Like the earlier edition, it obsoletes Form J24-0215-1. 



Copies of this and other ibm publications can be obtained through ibm Branch Offices. 

Address comments concerning the content of this publication to ibm Product Publications, Endicott, New York 13764. 



1960, 1961 by International Business Machines Corporation 



Introduction 

The ibm 1401 Report Program Generator produces 
programs that write reports of variable format from 
card or tape input files. Instead of writing a specific 
program for each report, the user writes a set of speci- 
fications which he supplies to the Generator. The 
process of producing any desired report can be sepa- 
rated into four phases as shown in Figures 1 and 2. 

Object programs can be produced on a 1401 card 
system equipped with a minimum of 4,000 positions of 
core storage. No special features are required. 

The amount of storage required for executing an 
object program is dependent upon the complexity of 
the report specifications. An object program can be 
executed on any 1401 system whose storage capacity 
will accommodate the object program. Some object 
programs can be executed on a 1401 system equipped 
with less than 4,000 positions of core storage. The 
printer can be an ibm 1403, Model 1 or Model 2. No 
special features are required. 

During the first phase (descriptive phase) the user 
describes information relevant to the report according 
to certain rules and conventions. He then punches the 
specifications into cards that constitute the source deck 
for the Generator. 

The second phase is generating the object program 
in the language of the ibm 1401 Symbolic Program- 
ming System (see ibm 1401 Symbolic Programming 
System, Form J24-0200). In phase three the 1401 SPS 
processor or the 1401 Autocoder (see Autocoder for 
the ibm 1401, Form J24-1434) processor converts the 
symbolic object program into the machine-language 
instructions required to write the report. Before the 
object program is converted from symbolic language 
to machine language, the user can incorporate any 
of his own subroutines into the program and then as- 
semble the augmented object program. 

The fourth (final) phase of report generating is the 
execution of the object program to produce the report. 
The input data must be in either card or tape files. 

Object programs produced by the Report Program 
Generator can process magnetic-tape ' input files 
having: 

1. Fixed-length records with fixed blocking. 

2. Variable-length records that are unblocked (single- 
record blocks). 

The maximum allowable block-length for input tape 
records varies with the size of the object program 
generateu. After an ouject program is assembled in 
machine language, the user can readily determine how 



much storage remains for the input tape-record block 
(see Third Phase of Report Generating: Program Stor- 
age Requirements). 

A tape file is the data contained between tape marks. 
A tape reel can contain any number of tape files. All 
or only some of the files on a tape may be considered 
part of the input data to a program. Thus, the ability 
to process or bypass files as well as the ability to restart 
the program after an end-of-file condition has been 
sensed are included in the generated object program. 
Because the program always halts on an end-of-file 
condition, input data may be contained on more than 
one reel of tape. 

If the user specifies that there is a header label at 
the beginning of an input tape, the generated object 
program bypasses the first record on the input tape, 
including any tape mark following that record. The 
user can choose to have the label processed if it meets 
the specifications for record and block size pertaining 
to the entire data file. 

As mentioned earlier, the output of the object pro- 
gram can be a printed report, punched cards, tape 
records or some combination of the three. Card input 
can be processed to produce printed and/or punched 
output. Tape input can yield tape output as well as 
printing and punching in any combination. Only un- 
blocked, fixed-length tape records no longer than 132 
characters can be produced as output. Although these 
records must compose a single file, that file can be 
written on more than one reel of tape. (The generated 
program halts on an end-of-reel condition to allow a 
new tape to be mounted.) 

This bulletin is concerned mainly with a description 
of the first phase of report generating, i.e., stating the 
specifications of the report and compiling a source 
deck. Accordingly, the descriptions of the sheets on 
which the specifications will be written and the rules 
and conventions for writing them constitute the major 
portion of this bulletin. Also included, however, is in- 
formation about machine processing of the source deck 
to produce the object program (phases 2 and 3) and 
machine processing of the input data file to produce a 
report (phase 4). 

Requests for the Card or for the Tape Report Pro- 
gram Generator program deck and write-up (which 
includes program listings and operating instructions) 
should be made to the local ibm sales representative 
or sales office. 

Figure 3 shows a few input cards for a report pro- 
duced using the ibm 1401 Report Program Generator. 
Figure 4 shows the report. Description of the specifi- 
cations for this report appears throughout this bul- 
letin. 
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Figure 1. Generating a Report on a 1401 Card System 
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Figure 2. Generating a Report on a 1401 Tape/Card System 
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Figure 3. Cards from Input File for Monthly Expense Distribution Report 
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Figure 4. Monthly Expense Distribution Report (Part 1 of 3) 
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Figure 4. Monthly Expense Distribution Report (Part 2 of 3) 
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Figure 4. Monthly Expense Distribution Report (Part 3 of 3) 



First Phase of Report Generating 

Genera/ Description 

To generate an object program, the ibm 1401 Report 
Program Generator (RPG) requires certain informa- 
tion. The information answers these questions: 

1. What are the characteristics of the file from which 
the report data is obtained? 

2. What type of information is to be extracted from 
the input file? From which records can these source 
fields be obtained? 

3. What types of calculations are to be performed 
during the execution of the object program? How 
are the results of these calculations to be manipu- 
lated? 

4. What is the format of the report? What headings 
and constants must it contain? How should the 
data composing the report be edited? 

As shown in Figures 1 and 2, four forms are re- 
quired for writing the report specifications. The forms 
contain answers to the preceding questions. The in- 
formation is punched into cards (Figure 5) with one 
card punched for each line. These cards comprise the 
specifications source deck. The RPG program proc- 
esses the source deck to produce the object program. 

Before the actual report specifications can be writ- 
ten, the user must have a clear image of what he 
wants as the final product. That is, he must know the 
contents of each line of the report, the spacing be- 
tween lines, and the positioning of the information 
within each line of the report. He uses the ibm 1403 
Spacing Chart, Form X24-6436, before writing specifi- 
cations. Preparing this chart consists of laying out 
the complete format of the report to obtain a pictorial 
representation of the final product. Although no cards 
for the source deck are punched directly from the 
entries on this chart, the pictorial representation serves 
as a guide to completing the four specifications sheets. 
It thus plays an important role in writing report 
specifications. 

The spacing chart and the four forms required dur- 
ing phase one are listed here in the order in which 
they are used. A brief description of the functions of 
each form is also given. Later sections will explain 
their use in more detail. 

1. ibm 1403 Spacing Chart, Form X24-6436 

This chart was described earlier as the form on which 
the user's image of the report is projected. Define the 
position of each field on each line of the report and 
include constant information, headings, and editing 
symbols, where applicable. 



2. Input Specifications, Form X24-1336 

A description of the data file, from which the informa- 
tion required for the report will be extracted, must be 
specified on this form. Describe each type of record 
in the data file, with its distinguishing record codes 
and control fields. 



3. Data Specifications, Form X24-1337 

On this form the user lists the data fields necessary for 
processing the report. These data fields may be output 
fields or factors in calculations. Each field described 
is associated with the input record or records that 
contribute to it. It is also associated with any condi- 
tions that govern the processing of those input records. 
Any number of fields from one or more input records 
can be listed as the sources of a data field. The input 
sources can be added and subtracted as well as moved 
to the data field. Furthermore, the user can state that 
the status (positive, negative, zero, or blank) of a 
data field will be needed to govern subsequent process- 
ing. For example, a line can be conditioned to print 
only if a particular data field is positive. 

4. Calculation Specifications, Form X24-1338 

Although a limited amount of calculation is available 
through entries on the data specifications sheet, the 
calculation specifications sheet must be used for more 
extensive calculations including multiplication, divi- 
sion, and comparing. This form accommodates calcula- 
tions on data fields described on the data specifications 
sheet, as well as constants and the results of previous 
calculations. Half -adjusting, position- ad justing, and the 
conditions governing the performance of a calculation 
can all be shown on this sheet= Furthermore, the user 
can define status conditions based upon the sign of 
the calculated result or the comparison of two fields. 

5. Format Specifications, Form X24-1339 

The final step in writing report specifications is de- 
scribing the format of output lines. Name each line 
by its type and relation to other lines. Specify the 
medium of output (printing, punching, writing on 
tape) as well as the conditions for output. Stacker 
selection of punched output or forms control of printed 
output can be specified. Having named a line, list all 
the constants, data fields, and edit control-words that 
compose the line. (Control words specify where 
commas, decimals, and conditional credit CR or minus 
symbols are to print and where zero suppression is to 
stop. ) Provision is made for description of conditions, 
if any, governing the inclusion of a field within a line. 
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Correlating the Report Specifications 

When completed, the five forms are an interrelated 
statement of the problem being specified as shown in 
Figure 6. The spacing chart represents the output 
lines described in the format specifications sheet. The 
same line names are used on both forms. 

The names given to various input records on the 
input specifications sheet are the same names used as 
field sources on the data specifications sheet to indi- 
cate the record from which a data field is taken during 
report writing. Each input record is assigned a unique 
two-digit number called a resulting condition number. 
During report processing, this condition is fulfilled 
whenever a record with the record codes specified for 
that resulting condition is present in the input area. 
The fulfillment of such a condition can govern the 
processing of a source field in the data specifications, 
the performance of a calculation specification, the 
placement of a field within a line or the output of that 
line as stated in the format specifications. The fulfil- 
ment of a resulting condition can be compared to the 
transferring of a selector on an accounting machine 
during the presence of a particular card. It can also be 
compared to the setting of a programming switch on a 
stored-program machine to indicate the presence of a 
particular record type. The change of a control -field 
specified for input records can also govern the process- 
ing of source fields (e.g., to provide group indica- 
tion), the performance of a calculation, the printing 
of lines, and the punching of cards. 

Thus, the input specifications describe the kinds 
of records in the input data file according to the cod- 
ing and control fields that are significant in these 
records. These specifications inherently determine 
many conditions for processing the data to be ex- 
tracted from the input file. 

The fields named on the data specifications sheet 
can be used as factors in calculations or as fields in 
lines. The fields named on the calculation specifica- 
tions sheet can also be placed in lines on the format 
specifications sheet. Sometimes the status of a field 
(positive, negative, zero, or blank) is important in the 
processing of that or other fields. It may be that cal- 
culations should not be performed on zero or blank 
fields or it may be that a field should be printed in 
different positions depending upon whether it is posi- 
tive or negative. Perhaps a line should be printed only 
when a certain field is not blank. Whenever the status 
of a field is important to processing, that status can be 
specified on the data sheet or calculation sheet beside 
the field name. Then, the status is assigned a unique 
two-digit resulting-condition number to represent it. 
The fulfillment of that condition during processing 
can govern further processing, as just indicated. 



Thus, fields from the data and calculation sheets 
contribute to the lines on the format sheet. Conditions 
representing the presence of a record in the input 
area, the change in control between that record and 
the previous record, or the status of certain fields that 
have been processed can govern the presence and 
placement of fields within a line or the printing, 
punching, or writing on tape of that line. Furthermore, 
a line can be included in the output because the out- 
put conditions were met for a previous line. This re- 
lationship is described by a next line specification on 
the format sheet. 

Considered together, the five forms represent the 
input file, the significant data fields within that file, 
the manipulations necessary to obtain the required 
output fields, and the line formats in which the fields 
are to appear. 

This summarizes briefly the elements that enter into 
report specifications during the first phase of report 
generating. In the sections that follow, each of the 
forms will be examined in greater detail. The rules 
and conventions governing report specifications are 
presented. Two sample applications are used to illus- 
trate pertinent parts of the description. For complete 
documentation of these sample reports, see Figures 
52 to 65. 



IBM 7403 Spacing Chart 

The purposes of laying out the report on the ibm 1403 
Spacing Chart are: 

1. to establish the positions at which the various data 
will be printed, punched, or written on tape, as 
well as to indicate the spacing between printed 
lines, and 

2. to assign each line a unique identification code 
representing 

a. the type of line, 

b. the level of the line, and 

c. the number of the line within its level. 

Layout of Lines and Fields 

The numbers across the top and bottom of the spacing 
chart represent the ibm 1403 print positions. The num- 
bers down the left side are line numbers. The user 
selects the line number and print positions for a par- 
ticular field and makes his notation in the selected 
positions. In the sample layout (Figure 7) note that 
headings and other constant information are spelled 
out completely in the print positions assigned to them. 
Variable information is represented by X's and in- 
cludes, where applicable, credit symbols, punctuation, 
etc. The position in an amount field where zero sup- 
pression ends is indicated by a zero rather than an X. 
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Line-Identification Code 

The column at the left on the spacing chart is used 
to assign each line a three-character identification 
code. This code identifies the line later on the format 
sheet where each line is described according to type 
and content. 

TYPE 

The first character of the identification code is H for 
a heading line, D for a detail line, or T for a total line. 
All lines must be identified as belonging to one of 
these categories. 

LEVEL 

The second character of the identification code can 
be a number from 1-8 or a letter. A heading or total 
line within a hierarchy is assigned a number to repre- 
sent its level. A heading or total line that is independ- 
ent (not in a hierarchy) is assigned a letter. A detail 
line can be assigned either a number or a letter to 
represent its level. 

NUMBER 

Lines within a level can be numbered according to 
their appearance in the output. Lines with numerical- 
level designations must also have numerical line-num- 
ber designations. Lines with alphabetic-level designa- 
tions can have numerical or alphabetic line-number 
designations. 

Classification of Lines 

The classification of a line by type is usually self-ex- 
planatory. Note, however, that total lines differ sig- 
nificantly from heading and detail lines. Heading and 
detail lines can contain information from the record in 
the input area at the time when the lines are produced; 
total lines can not. An input record can effect the 
control-field change that causes total lines to be writ- 
ten, but that input record cannot contribute data to 
these lines. A detail line has a direct relationship to 
the input record in that most or all of the data in a 
detail line, including calculated fields, comes from the 
input record. A heading line generally contains con- 



mediate lines. The principle underlying a hierarchical 
relationship is that lines of higher level govern lines 
of lower level. Thus, when the object program is run- 
ning, a total line with a numerical-level designation 
such as T3x will force Tlx and T2x to come before it 
whenever the output conditions are fulfilled for T3x. 

In the Monthly Expense Distribution Report (Figure 
4) there are three related levels of total. The lowest 
level is associated with sub-ledger number, the next 
level with general ledger number, and the highest 
level with department number. When the general 
ledger number changes, the sub-ledger total line 
prints before the general-ledger total line. When the 
department number changes, the sub-ledger and 
general-ledger total lines print before the department 
total line. Because this hierarchical relationship exists, 
these lines have been given the numerical-level desig- 
nations Til, T21, and T31. (See the spacing chart in 
Figure 7.) 

Study of the Monthly Expense Distribution Report 
reveals a difference in the hierarchical relationships 
for total and heading lines. Total lines appear in 
ascending order by level; heading lines appear in de- 
scending order by level. On that report the heading 
lines associated with department number print before 
the general-ledger number lines which, in turn, pre- 
cede the sub-ledger lines. Thus, when department 
number changes, the H3x lines precede the H2x and 
Hlx lines. When general ledger number changes, the 
H2x lines print before the Hlx lines. 

In addition to the three related levels of heading 
and total lines in the Monthly Expense Distribution 
Report, there are independent heading and total lines. 
Page headings printed as a result of page overflow, 
page totals, and final totals are all examples of lines 
that are independent of the minor, intermediate, and 
major relations governing a hierarchy. The illustrated 
report has both page heading lines ( HB1-HB4 ) and a 
final total line (TAA). All of these have alphabetic- 
level designations because they do not relate to lines 
of other levels. 

Page heading lines may be printed because of con- 
trol-field changes, because of page overflow, or be- 
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tion from input records, including the record present 
at the time the line is assembled. 

The concept of line level is based upon the relation- 
ship of a line to other lines. Heading or total lines 
that are independent of each other should be given 
alphabetic-level designations. Heading or total lines 
that are related in a hierarchy should be given 
numerical-level designations corres^ondinc to their 
positions in the hierarchy. A hierarchical relation- 
ship can be likened to total operation on an account- 
ing machine, i.e., major lines force minor and inter- 



Monthly Expense Distribution Report. Just as the ibm 
407 Accounting Machine distinguishes between normal 
programming and overflow programming, the 1401 
Report Program Generator considers normal heading 
lines distinct from overflow heading lines, even when 
the lines are alike in format. Thus, some of the head- 
ing lines in Figure 7 have two names reflecting their 
status as both overflow and normal page-heading-lines. 
The normal heading lines are H3x, H2x, and Hlx. The 
overflow lines are HBx. On a change in department 
number there is a skip to a new page of the report 
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and the numerical-level heading lines (H3x-Hlx) print. 
On page overflow the alphabetic-level heading lines 
HBx print. 

When there is a single detail-line format in a report, 
that line can be given an alphabetic-level designation 
to reflect its independent status. Such is the case in 
the Monthly Expense Distribution Report in which 
the detail line is named DAA. Other applications 
might have any number of detail-line formats which, 
when they do not relate to one another, are classified 
alphabetically by level. It is conceivable that some 
applications might contain hierarchies of detail lines 
necessitating numerical-level designations. 

Note that the level of a line is not necessarily equal 
to the number of the control field with which the line 
is associated. For instance, a total or heading line of 
level three may not relate to control field three in the 
input data file. In the invoice operation described later 
the level-one heading lines relate to a change in con- 
trol-field two. In other applications, lines with alpha- 
betic-level designations might relate to control fields. 
Thus, even though six is the maximum number of 
control fields that can be specified, there can be eight 
numerical levels for each type of line specified. 

The line number permits scheduling lines within a 
level. The Monthly Expense Distribution Report has 
six heading lines in the highest level. That level is as- 
sociated with department number. Whenever the de- 
partment changes, the six heading lines composing 
level three print in line-number sequence within that 
level, i.e., H31, H32, H33, H34, H35, and H36. Even 
though there is only one line in each of the lower 
levels of heading line in that report ( H21 and Hll ) , 
the lines have numerical line-number designations be- 
cause they are hierarchical. The same principle applies 
to the total lines, Til, T21, and T31, in the same 
report. Application of the line-number concept to 
hierarchical total lines corresponds to special pro- 
gramming on the ibm 407 Accounting Machine. For 
instance, four minor total lines could be named Til, 
T12, T13, and T14. 

Analysis of the independent lines in the Monthly 
Expense Distribution Report reveals that both numer- 
ical and alphabetic line-number designations can be 
used in classifying lines with alphabetic level designa- 
tions. When page overflow occurs, four heading lines 
(HB1-HB4) print, and the line number reflects the 
place of each line in the sequence. If there is only one 
line in an alphabetic level, that line can have a letter 
as its line number (DAA and TAA in the example 
report ) . 

Multiple-line-print (MLP) cards might cause three 
detail lines to print, and these lines could be named 
DAI, DA2, and DA3 to reflect the place of each line 



in the sequence. Two final total lines in a report might 
well be named TCI and TC2. 

Line classification is explained further in the descrip- 
tion of the format specifications sheet. 



Input Specifications 

This form (Figure 8) specifies the input file from 
which the report is to be prepared. The user describes 
each type of input record in the file. He specifies the 
record codes (i.e., the characters used to uniquely 
identify the records) and the control-data fields signifi- 
cant in that record type. Records that must be proc- 
essed in sequence within a control group can be given 
numbers representing their place in the sequence. The 
following paragraphs describe the information entered 
on the form. 

Record Sequence 

Column 1 must contain a C for every line-entry that 
specifies a record type. The C identifies the information 
as an input specification ( as opposed to a data, format, 
or calculation specification). 

Columns 2-3 specify two numerical or two alphabetic 
sequence characters. The Report Program Generator 
can accommodate a maximum of 20 unique two- 
character sequence specifications. If, to ensure proper 
processing, certain types of input data records must be 
in an established sequence within a control group, 
columns 2-3 of the input specifications sheet can con- 
tain numerical sequence entries in ascending order. 

If input data records do not have an established 
sequence within a control group, or if it is not desirable 
to halt processing when the records are out of sequence, 
alphabetic sequence designations should be used. Some 
applications contain both sequential and non-sequen- 
tial records. For example, the invoice form shown in 
Figure 9 is prepared from the file of cards shown in 
Figure 10. The source of the invoice date is a date 
card preceding the entire file. Because this date card 
has no sequence relationship in a control group in the 
input file, it is given the alphabetic record sequence 
AA in columns 2-3 of the input specifications sheet 
(see Figure II). 

For proper invoice preparation the other input data 
cards must be arranged within customer number in the 
sequence shown in Figure 10. Therefore, the Invoice 
To header card's record-sequence number is 01, the 
Shipped To header card is 02, the Shipped Via is 03, 
the Order Data is 04, and the Item detail is 05. Each 
time the customer number changes, this sequence 
begins again. 

For sequential records column 4 indicates the num- 
ber (either a 1 or N) of that type of record in a control 
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Figure 10. Input Data Cards for Invoice Preparation 

group in the input data file. If there is only one record 
of a type per group, enter a 1 in column 4. If there is 
more than one record of a type, enter an N in 
column 4. 

Except for detail cards, there is only one card of 
each type in the control group in the invoice example. 
Therefore, for the Invoice To card a 1 is entered on 
the sheet in column 4. For the detail card an N is 
specified. Column 4 can be left blank for non- 
sequential records. 

Column 5 must contain the letter X if the presence 
of a sequential record in the input data file is optional. 
If a record type is required for proper processing, 
leave column 5 blank. In Figure 9, the Shippeu To 
entry is optional because that record appears only if 
the customer to whom the invoice is sent has instructed 
the Representative Company to direct shipment to an 
address different from his own. An X in column 5 
specifies that the Shipped To record is optional 
(Figure 11). 
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Figure 11. Excerpt from Input Specifications 
for Invoice Report 

Any input tape record that is designated as optional 
cannot exceed 200 characters. 

Record Codes 

An input record can be identified by any number of 
record codes. All record codes specified for a single 
record type are considered in an and relation. That is, 
all the codes must be present in the record. Columns 
6-41 of the input specifications sheet provide space on 
one line-entry to specify as many as six record codes 
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per type of input record. It is possible, however, to 
specify more than six record codes per type by using 
more than one line-entry: 

• The first line has no resulting-condition number in 
columns 42-43. 

• Suceeding lines have a C in column 1 and the addi- 
tional record codes. 

• Only the last line-entry for a single record type has 
a resulting-condition number in columns 42-43. 
Columns 6-8 state the position number (input card 

column or tape-record position) that contains the 
record-code character. For ibm 1401 Data Processing 
Systems using 51-column input data cards, see Special 
Feature Specifications. 

Column 9 must contain an N if a negation condition 
is intended; otherwise it is left blank. A negation means 
that the code described is not present in the record 
specified. 

Column 10 must have a Z, D, or C, depending upon 
whether the record-code comparison to be made is 
that of the zone portion only, the digit portion only, 
or the full character. 

Column 11 is used for the particular record code. Any 
valid alphameric character (including a blank) can be 
entered in column 11. If the entry in column 10 is a C, 
the character is entered in column 11. If the entry in 
column 10 is a D, the exact digit is entered in column 
11. If the entry in column 10 is a Z, any character con- 
taining the desired zone can be entered. 

Columns 12-41 are used for five additional codes in 
the same manner. 

All record-code entries describing one input-record 
type are represented by one resulting-condition entry 
entered in columns 42-43. The resulting condition is a 
unique two-digit number, arbitrarily chosen by the 
user to represent a record coded according to his 
specifications. 

Figure 11 shows the entries necessary in columns 
1-43 of the input specifications sheet for the Invoice 
Report. 

In some applications there is more than one kind of 
record of a given type. For instance, in the invoice 
example just given, suppose that the file of input data 
cards contained three kinds of detail cards: 

1. a 1-punch in column 80, 

2. a 2-punch in column 80, 

3. a 3-punch in column 80. 

For other reports the 1-, 2-, and 3-punches might be 
significant, but in preparing invoices all three kinds of 
detail cards should be treated as one type. Therefore, 
they would receive the same sequence designation. 
Furthermore, suppose that in the input data file it 
were possible that for a given customer there may be 
any number of detail cards of each kind, including 



none of some kinds. Each kind would have N-number 
within a control group, and each kind would be op- 
tional within that group. The specifications for the 
conditions just stated consist of a separate line-entry 
for each kind of detail card, each having its own re- 
sulting condition (Figure 12). 

When records that are coded differently are to be 
processed alike for the most part, they have the same 
sequence designation in columns 2-3 whether that des- 
ignation is numerical or alphabetic. To represent their 
unique record codes, however, and to distinguish them 
later, they receive different resulting-condition num- 
bers. Such records are said to be in an or relation. 
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Figure 12. Three Kinds of Input Records Defined as 
One Record-Sequence Type 



Control Fields 

Control fields are record positions containing informa- 
tion identifying the classifications to which the record 
belongs. Columns 44-73 of the input specifications 
sheet list the control fields present in each type of 
input data record. Each field is described by its right- 
most position in the input record and its length. ( For 
ibm 1401 Data Processing Systems using 51-column 
input data cards, see Special Feature Specifications.) 
The fields are specified in ascending sequence of con- 
trol levels beginning with the entries for the most 
minor level in Field 1 (columns 44-48) and continuing 
to the right as far as necessary. Six is the maximum 
number of control fields that can be specified. 

It is not necessary that a control field be in the same 
position in different record-types. It is important, how- 
ever, that a field be entered under the proper level on 
the input specifications sheet. None of the heading 
cards in the invoice example have the lowest level of 
control, Item Number. Therefore, field 1 is left blank 
for those record specifications. The next level of con- 
trol, Customer Number, is present in those records. It 
is specified in columns 49-53 of the sheet. The detail 
cards in that example have both levels of control. 
Therefore entries are present for fields 1 and 2 ( Figure 
13). 

If there are more than six record codes in a record 
type, the control-field entries are made only on the 
last line-entry for that record type. 
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Figure 13. Input Specifications for Invoice Report 

Sequence Control 

A special entry applies when input data records are 
present in sequence in a control group of the input 
data file. The number of the control field governing the 
sequence of numerically-designated types of records 
must be specified by the entry SCFx in columns 1-4. 
The x is the number of the control field. In the invoice 
example the sequence of records specified relates to 
customer number. Every change in customer number 
means that the sequence of records begins again with 
an Invoice To record. Because customer number is 
field 2 (Figure 13), the proper entry for this Invoice 
Report is SCF2 in columns 1-4 on the line below the 
last record specification. Every application that has 
sequential-record specifications must have an SCFx 
entry at the end of the input specifications. 

Page Number 

Columns 76-77 are used for page numbering. The 
page-number entry is in the upper right-hand corner 
of the input specifications sheet. The pages are num- 
bered consecutively beginning with the spacing chart 
as page 01. 

Card Number 

A three-character card number in columns 78-80 estab- 
lishes the order of entries on the specifications sheet. 
The first 20 lines of the sheet are prenumbered 010- 
200. The six unnumbered lines at the bottom of the 
sheet are for the entry of statements inadvertently 
omitted and for sheet extension. Insertions can be 
referenced by numbering the statement with the hun- 
dreds and tens digit of the statement it is to follow 
and with any one of the units digits 1-9. This allows 
up to nine insertions between two consecutive pre- 
numbered statements. 

Summary of Input Specifications 

From knowledge of the records in the input data file, 
the user writes the input specifications for the Report 
Program Generator: 

Columns Name Explanation 

ICC for every line-entry that speci- 
fies a record type. If any records 



must be in a fixed sequence 
within a control group, enter an 
S on the line below entry for the 
last sequential record-type. 

2-3 Seq. Numerical-sequence order if a 

fixed record-sequence within a 
control group is required; two 
alphabetic letters if a fixed se- 
quence within a control group is 
not required or if there is only one 
record-type per control group. 
Enter the letters CF on the line 
below the last line-entry for se- 
quential record- type. 

4 Number 1 if only one sequential record 

per control group should be pres- 
ent, or N if more than one is 
permitted. Blank for non-sequen- 
tial records. If there is an SCF 
entry in columns 1-3 of this line- 
entry, enter the control-field 
number that controls the se- 
quencing. 

5 Option X if the presence of this sequen- 

tial record-type is optional; blank 
if its presence is required. Blank 
for non-sequential records. 

6-8 Position Location within the record of 

the record-code character whose 
presence or absence identifies 
this record-type. 

9 Not N if the absence of the record- 

code character identifies this rec- 
ord-type; blank if the presence 
of the character identifies this 
record-type. 

10 Z/D/C Z, D, or C according to whether 

the zone-portion, digit-portion, or 
the full-character of the code 
specified in column 11 of this 
line-entry is to be used to identify 
this record-type. 

11 Code The record-code character whose 

presence or absence in a record 
uniquely identifies the record. 
Any valid letter, number, or spe- 
cial character (including blank) 
can be used. 
12-41 (Other Five other record-codes can be 
Codes) specified for a record-type, each 
in the same manner as described 
for the firsi 
umns 6-11. 
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42-43 Resulting 
Condi- 
tion 

44-46 End 



47-48 Length 

49-73 (Other 
Control 
Fields) 



74-75 
76-77 



78-80 



(Blank) 
Page 



Card 
Number 



A two-digit number to represent 
the presence in the input area of 
this record-type. 

The location in the record of the 
units position of control field 1 
(the most minor control field). 
Length of control field 1. 
Five other control fields can be 
specified for this record-type, in 
ascending order of significance 
from left-to-right. 
Not used. 

Page number of this specifica- 
tions sheet, located in the upper 
right-hand corner of the sheet. 
The first 20 lines on each sheet 
are prenumbered. 



Data Specifications 

The Data Specifications sheet (Figure 14) describes 
the fields that appear in the output and those used 
in processing. On this sheet there are no restrictions 
with respect to the order of the line-entries described 
in the following paragraphs. 



D (Data) 

Column 1 must contain a D for every line-entry on the 
sheet. The D identifies each entry as a data specifica- 
tion (as opposed to an input, format, or calculation 
specification ) . 

Field Name 

Columns 2-7 must contain a unique name for each of 
the data fields necessary to process the report. Num- 
bers and special characters cannot be used in a field 
name. Any name less than six characters long must 
be left-justified. 

Field Length Unedited 

Columns 8-10 contain the unedited field-length of the 
report field. Unedited length means the length not 
counting punctuation supplied by ibm 1401 program 
editing. For example, in Figure 9 the date on the 
second printed heading line is contained in a card as 
Jul 25,60. Because the date field desired on the report 
is the same, the unedited field-length entry for DATE 
is 009. If the date were contained in a card as Jul2560 
and the date field desired in the report were Jul.25,60, 
with the period and comma supplied by 1401 program 
editing, then the entry for unedited field-length would 
be 007. 
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Field Status 

Columns 11-19 are explained later when their purpose 
is more meaningful. 

Sources of Field 

Columns 20-70 specify three sources of the report field. 
If more than three sources must be specified for a 
report field, use more than one line. 

Columns 20-22 define the first source of the field. 
Possible sources are input records, serial numbers, page 
number, and record-count numbers. The entries are 
Cxx for input record sources, SER for serial numbers, 
PAG for page number, and RCT for record-count num- 
bers. When the field source is an input record, the 
appropriate entry must come from columns 1-3 of the 
input specifications sheet. 

Column 23 contains an N if the field is a numerical 
field that has zoning in positions other than the units 
position. The object program will then strip the zero-, 
11-, or 12-zones from all positions except the units in 
the field for which an N is specified. If the units posi- 
tion contains no zone, this specification will create a 
12-zone in that position. 

The other entry permitted in column 23 is an M. 
This identifies the entry as a month-field conversion 
specification. (See Data Specifications: Month-Field 
Conversion for an explanation and example of this 
entry. ) Otherwise leave this column blank. 

Columns 24-26 contain the location of the low-order 
position of the field in the source record. ( For ibm 1401 
Data Processing Systems using 51-column input data 
cards, see Special Feature Specifications.) For fields 
whose sources are SER, PAG, and RCT, these columns 
should be left blank. 

Columns 27-29 must contain the field-length in the 
source record only if that length is different from the 
unedited (report) field-length specified in columns 
8-10. For example, in Figure 15 the entry on the data 
specifications sheet for SOLDTO gives the unedited 
field-length in columns 8-10 as 020. Because the source 
field-length is the same, columns 27-29 are left blank 
for that field. The entry for AMOUNT specifies an 
unedited field-length of 006 in columns 8-10. This pro- 
vides sufficient positions for the largest total expected 
although the source field-length specified in columns 



27-29 is 005. The source field length should be left 
blank when the source is SER, PAG, or RCT. 



One of the following seven operation characters 
must be specified in column 30: 

Blank — Move the source field to the data field. 

A — Add the source field to the data field. 

S — Subtract the source field from the data field. 

— Reset the data field to zero before adding the 
source field to it. (Punch 12, for 0.) 

— Reset the data field to zero before subtracting the 
source field from it. (Punch 11, for 0.) 

D — Move the numerical portion of the single-charac- 
ter source field to the units position of the data 
field. The zone portions are undisturbed in both 
fields. 

Y — Move the zone portion of the single-character 
source field to the units position of the data field. 
The numerical portions are undisturbed in both 
fields. 



Figure 16 illustrates the use of the single-character 
move-numerical and move-zone operations. Each line- 
entry is explained as follows: 

1. The first line-entry specifies that the six-character 
field at position 074 in input record C05 should be 
moved to the data field, AMOUNT. Furthermore, 
the zone portion of the single-character source field 
in column 69 of the same record is to be moved to 
the units position of the data field, AMOUNT. By 
using an entry such as this, the high-order position 
of the source field can contribute the sign to the 
units position of the data field. 

2. The second line specifies that the five-column 
source field in columns 49-53 of record type CBB 
is to be moved to the five-position data field, FLDR. 
The zone portion of the single-character source 
field in column 70 of CBB is to be moved into the 
units position of the data field, FLDR. By using 
an entry such as this, a data field can acquire its 
units-position sign from any position in a record. 
By choosing a one-position field source containing 
no zones for the Y operation, an unwanted sign in 
the units position of the data field can be removed. 
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Figure 15. Data Specifications for Field Sources 
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3. The third line specifies that the numerical portion 
of the one-column source field in column 35 of card 
type C02 is to be moved into the one-position data 
field, FLDS. By using an entry such as this, a single- 
column source field that contains an unwanted sign 
can be moved into the data field without the un- 
wanted sign. 

Because the Y and D operations are single-character 
move operations, there should be no field length speci- 
fied for them. When Y or D operations are specified on 
the same lines as another operation, they should fol- 
low the other operation. This ensures the proper 
sequence of operation in the object program. For 
example, in the first two line-entries in Figure 16, the 
Y-entries are made to the right of the blank (move) 
operation entries. 

The same principle of ordering source entries on a 
line applies in some arithmetic specifications. This is 
because the object program performs the operations 
specified in the order of entry on the sheet from left 
to right. 

For example, if a field being described is the result 
of adding or subtracting more than one field from the 
same source record, and if that field must be reset 
prior to the first operation, then the source field de- 
scribed first ( in columns 20-36 ) should be the one that 
is reset-added or reset-subtracted. 

Columns 31-33 can be used to specify a condition 
that is to govern the operation upon the source field. 
It can be either a positive condition, such as F3 to indi- 
cate a change in control field 3, or a negative condition, 
such as NF3 to indicate no change in control field 3. 
The conditions specified on this sheet are the resulting 
conditions of the input specifications sheet, control- 
field changes (F1-F6), sense switch settings (SB, SC, 
and SD ) , resulting conditions specified by other entries 
on the data sheet, or the negation of any of these when 
preceded by an N. 

In the Invoice Report shown in Figure 9, the minor 
group-indicative information (Item Number, Descrip- 
tion, Unit of Measure, and Unit Price ) is to be obtained 
from the first card of each minor control group. Hence 
the specification for ITEMNO is condition Fl in col- 
umns 32-33 of the data specifications sheet (Figure 17). 



This entry specifies that the source field is to be moved 
to ITEMNO only from the first card after a change 
in control field 1. 

If the field-source entry on a given line is RCT or 
SER, the entries in columns 31-36 specify the condi- 
tions to be met for increasing the record- or serial- 
count. All input records can be counted by an entry 
such as the second line of Figure 17. Selective record 
counting can be done by the third line-entry in Figure 
17 where 02 in columns 32-33 represents the resulting- 
condition number of a record type defined on the input 
sheet. For the Invoice Report, Figure 13, condition 02 
was assigned to a Sold To card. Thus, this count in 
that application will be increased one for each first 
card in the intermediate group controlled by customer 
number. 

If the field source entry is PAG, the conditions are 
for reset of page count. In Figure 9 the pages of each 
customer's invoice are to be numbered at the' top of 
each invoice form. With a control change in customer 
number (field 2), page numbering is to begin again 
at one. Therefore the proper entry for PAGENO as 
shown on the fourth line of Figure 17 includes F2 as 
the condition for reset. When no condition is described 
for a PAG source, the object program numbers the 
report pages consecutively from beginning to end. 

Columns 34-36 can be used to specify a second 
condition governing the operation upon the source 
field. If two conditions are specified, they are con- 
sidered in an and relation. That is, both conditions 
specified must be met before the operation specified 
in column 30 is performed upon the source field. 

When the field being specified has more than one 
source, the second source is specified by entries in 
columns 37-53 in the same manner as the first source 
in columns 20-36. The third is specified in columns 
54-70. If more than three sources exist for a field, more 
than one line-entry is required to specify the sources. 
In such instances, the first line-entry for the field is 
prepared as previously described. The second and suc- 
ceeding line-entries for the field have a D entered in 
column 1. Columns 2-19 are blank. Columns 20-70 are 
used, as required, to enter the information for the 
remaining sources of the field. Figure 18 is an example. 
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Figure 17. Conditioning Operations on Source Fields 



Field Status 

The user can govern subsequent processing according 
to the status (positive, negative, zero, or blank) of a 
particular field. Columns 11-19 of the data sheet are 
used to assign resulting-condition numbers to repre- 
sent one, two, or three possibilities for the status of the 
field. If the field's status is not significant in the control 
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Figure 18. Specifying Four Field Sources 



of processing, leave columns 11-19 blank. 

Column 11 is used for the first status character. The 
acceptable characters and their meanings are: 
B - Blank 
Z - ±Zero 

N — Negative, including minus zero 
P — Positive, including plus zero 

Note: Minus zero can occur during processing on the 
ibm 1401 Data Processing System. 

Columns 12-13 are for the assignment of a resulting 
condition. This is a two-digit number identifying the 
field status specified in column 11. The number entered 
here can be any one in the range 00 through 99 with 
the exception of any number used to define a resulting 
condition on the input or the calculation specifications 
sheets. The field status defined by columns 11-13 refers 
to the condition of the data field after the operation 
specified by a source field has been accomplished by 
the object program. For example, if a source field is 
added into a data field with a zero status defined as 
Z25 in columns 11-13, condition 25 will be fulfilled by 
the program whenever the specified addition results 
in a zero data field. This condition can then be used 
to govern other operations in the program such as the 
performance of a calculation. 

Referring to the first line of Figure 17, if after mov- 
ing the source field from C05 to the ITEMNO field 
that data field is blank, the resulting condition 07 has 
been met. This condition has a special use in governing 
total printing when the input file is first read in. See 
the section Suppressing Total Lines and Calculations. 

Columns 14-19, if necessary, specify two more sets 
of status conditions for the data field. 



aids identification of line-entries. See Suggestions and 
Recommendations: Program Efficiency for a suggestion 
about the arrangement of data specifications. 

Conversion of Month Field 

In many applications a month field is a single character 
with the months January through September repre- 
sented by the numbers 1 through 9, and the months 
October through December each represented by a 
zone or a combination of a zone and a number. In 
these applications the single-character representation 
of the months can.be converted automatically at object- 
program time to the corresponding two character rep- 
resentation. January through September are then 01 
through 09; the months October, November, and 
December are 10, 11, and 12. 

Figure 19 shows the specification for month-field 
conversion used in the Monthly Expense Distribution 
Report. Columns 8-10 contain 002, the data field-length 
after conversion. The M in column 23 identifies a 
month-field conversion specification. Columns 27, 28, 
and 29 contain the specific single-characters used in 
the source field to represent the months October, No- 
vember, and December, respectively. The other entries 
on the line are as previously explained. 
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Figure 19. Specification for Month-Field Conversion 



Page Number 

Columns 76-77 are used for page numbering. The entry 
is made in the upper right-hand corner of the data 
sheet. The pages are numbered consecutively begin- 
ning with the spacing chart as page number 01. 

Card Number 

Although the entries on the data specifications sheet 
can be in any order, a card number (columns 78-80) 



Serial, Record, and Page Numbers 

Any number of serial or record-count numbers can be 
specified in a single application. Each has the source 
SER or RCT and a unique data-field name in columns 
2-7. It is also possible to maintain a single tally for 
more than one record type by specifying multiple RCT 
sources to a data field. Each source then must be con- 
ditioned by the resulting-condition number of a dif- 
ferent record type. For example, all records having 
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the resulting condition 02 or 04 can be counted in a 
single tally by two RCT sources to the tally: one with 
condition 02, the other with condition 04. A single 
serial number can be increased for different reasons 
by multiple SER sources. 

There can be only one page number in an applica- 
tion. Its data name must be PAGENO. It will be in- 
creased by the object program each time it is to be 
printed. 

By specifying more than one PAG source to 
PAGENO, it is possible to cause it to reset under 
different conditions. 

The object program automatically initializes record, 
serial, and page numbers so that they begin with the 
number 1. However, if the user wants an initial number 
other than 1 in an application with card input, a 
separate card containing the initial number minus 1 
and a unique code to identify that card can be read 
in ahead of the input data file. The initializing card 
just mentioned must have been defined on the input 
specifications sheet, and an entry on the data specifica- 
tions sheet must have included the proper reference 
to the source of the initial number minus 1. Prepare 
the initializing card as follows: for each number 
(record count, page number, or serial number) punch 
an initial value in the card in arbitrarily chosen col- 
umns. Punch a unique code in the card to identify it. 

For example, if a listing application is interrupted 
after printing the 50th page for the 25th serially-num- 
bered document ( the next page to be printed is 51 and 
the serial number to be printed on the next page is 25), 
correct numbering can be resumed if: 

1. One card for initializing both the page and serial 
numbers is prepared and read in ahead of the re- 
maining input records when a new machine run 
begins. 

2. Specifications pertaining to the initializing card 
have been included on the input and the data 
specifications sheets. 

The initializing card for resuming page and serial 
numbering in this example can be punched as shown 
in Figure 20. 

The initializing card is assigned two alphabetic 
record-sequence characters (NN is arbitrarily chosen) 
for the input specifications sheet in columns 2-3. Fig- 
ures 21 and 22 show the information pertaining to the 
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initializing card, which must be included in the report 
specifications. Thus, the serial and page numbers will 
be set at the values in the CNN card at the beginning 
of the run. Page number will be increased by one 
whenever it is to be printed. Serial number will be 
increased whenever there is a change in control field 
1. In addition, page number will be reset on the 
control-field change. 

To reinitialize a page, serial, or record-count number 
at any point during a machine run, include a record 
such as CNN at that point in the input file. The opera- 
tion code on the data sheet will probably be in such 
cases. 
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Figure 22. Data Specifications for an Initializing Card 

Summary of Data Specifications 

From the spacing chart and the input record formats 
(see Figure 23) the user (1) assigns an alphabetic 
field-name, no longer than six characters, to each data 
field, and (2) determines the source of each field 
named. The four field sources are input records, page 
number, serial numbers, and record-count numbers. 

The names assigned to data fields permit reference 
to those fields in processing the report. Therefore, every 
data field used in processing must be assigned a unique 
field-name. The source or sources of the field also must 



On the data specifications sheet the user enters the 
following information about each field of data: 
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Explanation 
Always a D. 
Data field name. 

Data field length, unedited. 

B, Z, N, or P (representing the 

status of the data field) in one, 
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Figure 23. Assigning Data Field Names and Determining Their Sources for the Monthly Expense Distribution Report 
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Figure 24. Data Specifications for Monthly Expense Distribution Report 



12-13, 
15-16, 
18-19 



20-36 



20-22 
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two, or all three of these columns 
if a status is to be established. 
Otherwise, blank. 

Resulting Used only in conjunction with 
Condi- the status columns. A unique two- 
tion digit number must represent each 

status specified. 



(First 
source 
of field) 

Field 
Source 

Numeric 



24-26 



27-29 



Field 
End 



Field 
Length 



Information for the first source 
of the data field. 



One of four possible sources: 
Cxx, PAG, SER, or RCT. 

N to remove zone information 
from all positions of the source 
field except the units. M to con- 
vert from a single-character rep- 
resentation of month to the two- 
digit representation. Otherwise, 
blank. 

Location of the units position of 
the field in the source record. 
Blank if source is PAG, SER, or 
RCT. 

Length of the source field if dif- 
ferent from the data-field length. 
For a month-field conversion 
entry (M in column 23), the char- 
acters used in the source field 
that represent the months of Oc- 
tober, November, and December. 
Otherwise, blank. 



30 Opera- Blank, A, S, 0, 0, D, and Y to 

tion describe the operation to be per- 

formed upon the source field. 
After the operation, the result is 
located in the data field. 

31-33, Cond. One or two conditions to govern 

34-36 the occurrence of the operation 

specified in column 30. If the 
operation is to be performed un- 
conditionally, these columns are 
blank. Permissible entries are SB, 
SC, SD, F1-F6, resulting-condi- 
tion numbers from the input 
sheet, resulting-condition num- 
bers from other lines of the data 
sheet, and negations (an N in 
columns 31 or 34 ) of these condi- 
tions. 

37-53, (Other Information for the second and 
54-70 field third field sources of the data 

sources) field, if applicable. The explana- 
tion of the columns for the first 
source applies to the correspond- 
ing columns of the second and 
third sources. 

71-75 (Blank) Not used. 

76-77 Page Page number, located in the 

upper right-hand corner of the 
sheet. 

78-80 Card Card number. 

Number 

The data specifications for the Monthly Expense 
Distribution Report are shown in Figure 24. 
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Calculation Specifications 

This form (Figure 25) specifies calculations that are 
more extensive than those that can be defined on the 
data specifications sheet. For example, comparison, 
multiplication, and division can be specified, as well 
as arithmetic operations to be performed upon result- 
ing fields from either the data specifications sheet or 
from prior entries on the calculation specifications 
sheet. 

For 1401 Data Processing Systems not equipped 
with the multiply-divide optional feature, the Report 
Program Generator will incorporate subroutines in 
the object program to enable the user to perform 
multiplication and division. The following paragraphs 
explain the entries on the calculation specifications 
sheet. 

A (Arithmetic) 

In column I an A (punched as a 12- and a 1-punch) 
identifies the entry as a calculation specification as 
opposed to an input, data, or format specification. 

Field Name 

The name of the field that will contain the result of 
the calculation specified is entered in columns 2-7. 
Numbers and special characters cannot be used. Field 
names of less than six characters must be left-justified. 



For a compare specification (C in column 29), col- 
umns 2-7 must be blank. These columns can also be 
left blank if the result of this calculation affects the 
last data field specified as the result of a preceding 
calculation. 

Field Length Unedited 

Columns 8-10 must contain the unedited length of the 
field. See the corresponding paragraph under Data 
Specifications for further explanation of unedited field- 
length. 

Field Status 

As in the case of data specifications, the user may want 
to govern later processing (as defined by format speci- 
fications and subsequent calculation specifications) 
according to the status of a particular field. Columns 
11-19 of the calculation specifications sheet can be 
used for this purpose. The allowable entries in col- 
umns 11, 14, and 17 are those given for the field status 
of the data specifications sheet (B, Z, N, and P), as 
well as the following entries which are related to the 
comparison of two fields: 

E — Factor 2 is equal to factor 1. 

U — Factor 2 is unequal to factor 1. 

H — Factor 2 is higher in the collating sequence 
than factor 1. 

L — Factor 2 is lower in the collating sequence than 
factor 1. 
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Figure 25. Calculation Specifications Sheet 
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Note: The H and L entries are valid only if the lbm 
1401 Data Processing System being used is equipped 
with the high-low-equal compare special feature. 

As mentioned under Field Status for the data speci- 
fications sheet, each status entry (columns 11, 14, and 
17) should be defined by a corresponding unique re- 
sulting-condition number (columns 12-13, 15-16, and 
18-19). These resulting-condition numbers can be 
used to govern other operations. 

Factor 1 

Columns 20-25 are used to state the field name or 
literal that is the multiplicand, dividend, augend, min- 
uend, or the field with which another field is com- 
pared. A field name thus entered must have been 
specified either by an appropriate entry in columns 
2-7 of the data specifications sheet, by a previous line- 
entry on the calculation specifications sheet, or by a 
W-entry on a format specifications sheet (see Format 
Specifications). The alphabetic name of factor 1 is 
left-justified when it is less than six letters long, the 

first letter being entered in column 20. 

+ 
If factor 1 isa literal in the range from 000001 

through 999999, the entry in columns 20-25 is the 
numerical value of that literal with its sign indicated 
over the units position, as shown above. When punched 
into a specifications card, the sign of the constant is 
overpunched in the units position as a 12-punch if 
plus or an 11 -punch if minus. In the absence of a sign 
overpunch, the constant is treated as a positive num- 
ber. A constant whose value can be expressed in less 
than six digits need not be entered with leading zeros. 
Thus, the constant +1 can be entered as a 1 in column 
25, with columns 20-24 left blank. Literals of less than 
six digits are right-justified, the units position being 
entered in column 25. 

Columns 26-28 must contain the unedited field- 
length of factor 1. 

OP (Operation) + - X / C 

Column 29 can be used to identify the operation to 
be performed using the two factors. The entries and 
the operations they represent are: 



Plus and minus specifications on this sheet provide 
for addition and subtraction operations upon data de- 
veloped by the data specifications sheet or prior en- 
tries on the calculation specifications sheet. 

Factor 2 

Columns 30-35 are used for the name of the field (or 
the numerical value of the constant) that is being 
specified as one of the following: multiplier, divisor, 
addend, subtrahend, or the field compared with factor 
1. The explanation given for factor 1 applies to 
factor 2. 

Columns 36-38 must contain the unedited field- 
length of factor 2. 

AS 00 (Add, Subtract, Reset Add, Reset Subtract) 

Column 39 must contain an A, an S, (12, 0), or 
(11, 0), depending upon whether the result of the 
calculation being specified by this line-entry is to 
be added to, subtracted from, or substituted for the 
previous contents of the field named in columns 2-7 
of this line-entry. Figure 26 illustrates various multipli- 
cation operations. Plus, minus, and divide operations 
can be similarly specified. An explanation of the 
entries in Figure 26 follows: 

1. The first line-entry specifies that the product of 
FLDB X FLDC be added to the contents of FLDA 
and that the sum be placed at FLDA. 

2. The second line specifies that the product of FLDB 
X FLDC be subtracted from the contents of FLDD 
and that the difference be placed at FLDD. 

3. The third line-entry specifies that the product of 
FLDB X FLDC be reset-added into FLDE. 

4. The fourth line specifies that the product of FLDB 
X FLDC be reset-subtracted into FLDF. 

5. The fifth line specifies that the product of FLDB 
X WORD03 be subtracted from the contents of 
FLDG and that the difference be placed at FLDG. 
WORD03 is the field name of a 9-position constant 
that must be defined on the format specifications 
sheet bv a W-entrv. 
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Figure 26. Multiplication Specifications 
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Figure 27 illustrates a means of obtaining progres- 
sive totals. Note the absence of an entry in the factor 
1 field and in the OP field (column 29). This is the 
explanation of the entries in Figure 27: 

1. The first line specifies that the field AMOUNT be 
added to the contents of TOTAMT and that the 
sum be placed at TOTAMT. 

2. The second line specifies that the field AMOUNT 
be subtracted from the contents of TOTAL and 
that the difference be placed at TOTAL. 

Figure 28 illustrates a comparison specification that 
causes factor 2, the literal 123456, to be compared 
with factor 1, FLDNAM. FLDNAM must have been 
defined on either the data specifications sheet or a 
prior entry on the calculation specifications sheet. An 
equal result of the comparison can be referred to in 
other operations as condition 07. 
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Figure 27. Progressive-Total Specifications 
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Figure 28. Comparison Specification 



results of a calculation specified as a total-time cal- 
culation. A total calculation is similar to a group total 
on an ibm 407 Accounting Machine application, where 
the card at the first reading station that initiates a 
control change does not contribute to group totals for 
the previous group. 

A detail calculation is performed after the test for a 
control-field change is made and after information is 
removed from the record in the input area. The record 
just read can, therefore, contribute to the results of a 
calculation specified as a detail-time calculation. 

When a detail calculation is to be performed for 
every record in the input file, the D in column 49 may 
be sufficient to condition the calculation. Selected de- 
tail calculations and all total calculations must be 
governed by specifications in columns 40-48 as well as 
T or D in column 49. 

Half-Adjust 

Columns 50-51 are used to specify the position of the 
result that will be half-adjusted (have 5 added to it). 
The result just referred to is the data developed by the 
calculation specification before the operation specified 
in column 39 of this specifications sheet. If half-ad- 
justing were specified in the first line-entry in Figure 

26, it would be accomplished after multiplying FLDB 
by FLDC but before adding the result to FLDA. If 
half -adjusting were specified on the first line in Figure 

27, the field AMOUNT would be half-adjusted just 
before being added to TOTAMT. Whenever the units 
position of the result is to be half-adjusted, the entry 
in columns 50-51 is 01; if the tens position, 02; if the 
hundreds position, 03; etc. 



Conditions 

Columns 40-48 can be used to specify a maximum of 
three conditions in an and relation to govern whether 
the calculation specified is to be performed. The con- 
ditions that can be entered are any of the resulting 
conditions previously defined on the input, data, and 
calculation specifications sheets as well as LC, F1-F6, 
SB-SD, and negations of each of these. For example, 
if one condition to be specified is no change in control 
field number 3, the entry in columns 40-42 will be 
NF3. 



Total/Detail 



or D, depending 



Column 49 must contain the letter 

upon whether the line-entry specifies a total or a detail 

calculation. 

A total calculation is performed after the test for a 
control-field change is made, but before information 
is removed from the record in the input area. The 
record just read cannot, therefore, contribute to the 



Position-Adjust 

Columns 52-53 are used to specify the number of posi- 
tions to be dropped from the result of the calculation. 
The result referred to is the same as explained in the 
preceding paragraph. If the units position of the 
result is to be dropped, the entry in columns 52-53 is 
01; if the units and tens positions are to be dropped, 
02 is entered; if units, tens, and hundreds, 03; etc. 

Half-adjusting, position-adjusting, or both can be 
specified separately from any other calculation. For 
example, if field A has the form 31415926 and the user 
wants to retain only the five high-order digits of field 
A with the units position rounded ( to yield 31416 ) the 
appropriate entries are shown in Figure 29. 
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Figure 29. Half -Adjust and Position-Adjust Specifications 
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Decimal Positions in Factor 1 
12 3 4 5 6 
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Example: xxx.xxx)(xx.xx =r 

——Round this position. 

xxxxx .xx^xx)^_____^ 

Drop these positions. 

Factor 1 has 3 decimal places; 
factor 2 has 2 decimal places. 
By looking in the vertical row labeled 3 and 
in the horizontal line labeled 2, the number 
at the intersection is 03. This is the number to 
specify in the Half-Adjust and in the Position- 
Adjust columns of the Calculation sheet. 



NOTE: For a three-decimal product rounded to 
the nearest thousandth, subtract 01 from the 
table values. 

For a one-decimal product rounded to the 
nearest tenth, add 01 to the table values 



Figure 30. 



Number of Positions to Half-Adjust and Position-Adjust to Yield 
a Two-Decimal Product Rounded to the Nearest Hundredth 



In most commercial applications involving multipli- 
cation, the product should be rounded to the nearest 
hundredth, and positions to the right of the hun- 
dredths should be dropped. Figure 30 is a chart to aid 
the user in selecting the proper half-adjust (columns 
50-51 ) and position-adjust ( columns 52-53 ) entries for 
the calculation sheet. 



Page Number 

Columns 76-77 are used for page numbering. The 
numbers are punched in the cards from the page- 
number entry in the upper right-hand corner of the 
calculation specifications sheet. As previously men- 
tioned, the sheets are numbered consecutively begin- 
ning with the spacing chart as page number 01. 

Card Number 

The first twenty lines of the sheet have preprinted 
card numbers (see Input Specifications: Card Num- 
ber). The cards punched from the calculation specifi- 
cations must be arranged in order by page number 
(columns 76-77) and card number (columns 78-80). 



The line-entries in Figure 31 perform the following 
operations at total-time following a change in control 
field 1: 

1. The first line resets to zero the five-position field 
in core storage labeled WHTAX and adds to the 
WHTAX field the five-position amount, GROSS. 

2. The second line multiplies TAXCL by the literal 
1300, subtracts the product from the WHTAX field, 
and then tests the sign of WHTAX. If the sign is 
negative (meaning that the employee's non-taxable 
income for the week exceeds his gross earnings), 
resulting-condition indicator 10 is set on. 

3. If WHTAX is not negative (resulting-condition 
indicator 10 is not on), the third line multiplies 
the result of the previous calculation, WHTAX, 
by the literal 18 to produce a seven-position prod- 
uct. The object program then half -adjusts the tens 
position of the product, drops the units and tens 
position of the product (leaving the five high-order 
positions ) , resets to zero the five-position WHTAX 
field, and adds the five-position product to the 
WHTAX field. 



Leaving "Field Name" Blank 

Figure 31, which illustrates a withholding-tax calcula- 
tion specification, shows how the field name (columns 
2-7) and its length (columns 8-10) can properly be 
left blank. In that figure, the problem is: 

Weekly withholding tax = [gross pay — (tax class X 
13.00)] X 18%. 
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Figure 31. Leaving Field Name and Length Blank 
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Field Length Specification for 
Multiplication and Division 

If multiplication is specified in column 29 of the cal- 
culation specifications sheet, the field length (columns 
8-10) must be no less than the sum of the number of 
digits in the multiplier and the multiplicand, minus 
the number specified for position-adjusting. For ex- 
ample, in multiplying a five-digit number by a two- 
digit number and dropping the units position of the 
product, the field length must be at least six characters. 
If division is specified, the field length (columns 
8-10) must be no less than the number of digits in the 
dividend minus the number specified for position- 
adjusting. Thus, for dividing a seven-digit number 
by a divisor and dropping the units and tens positions 
of the quotient, the field length must be at least five 
characters. 

Summary of Calculation Specifications 

After completing the data specifications sheet, the user 
can determine the data-field calculations that are yet 
to be specified. Figure 23, which indicates the pro- 
cedure for writing the data specifications of the 
Monthly Expense Distribution Report shown in Fig- 
ure 24, shows that three calculations have not yet 
been specified. The three calculate the data fields 
AMTACT, AMTDEP, and FINAMT. These three cal- 
culations are shown in Figure 32. 

Having determined the calculation specifications 
that are required, the user makes the following entries 
on the calculation specifications sheet: 



Columns Name 



1 

2-7 



Field 
Name 



Explanation 
Always an A. 

Name to identify the data field 
that will contain the result of 
this calculation, with two excep- 
tions. It is blank if the line- 
entry is a comparison specifica- 
tion (C in column 29), or the 
result is to be contained in the 



8-10 Field 

Length 

11, 14, 17 Status 



same data field as in a preceding 
line-entry. 

Unedited data-field length. 

B, Z, N, P, U, E, H, or L in one, 
two, or all three of these col- 
umns to establish a field status. 
The entries H and L can be used 
only if the object program is to 
be executed on an ibm 1401 Data 
Processing System equipped with 
the high-low-equal compare spe- 
cial-feature. 

Used only in conjunction with 
the status columns 11, 14, and 
17. A unique two-digit number 
represents each status specified. 
Either the field name or the lit- 
eral that is factor 1. The field 
name must have been specified 
on the data specifications sheet, 
in a prior entry on the calcula- 
tion specifications sheet, or in a 
W-entry on a format specifica- 
tions sheet. 

26-28 Length Factor 1 unedited field-length. 



12-13, 
15-16, 
18-19 

20-25 



Resulting 
Condition 



Factor 1 
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30-35 

36-38 
39 



OP Operation to be performed using 

the two factors. Addition, sub- 
traction, multiplication, division, 
and comparison are represented 
by +, - X, /, and C. 

Factor 2 Either the field name or the lit- 
eral that is factor 2. 

Length Factor 2 unedited field-length. 

i-- + - 

A S A, S, 0, or 0, depending upon 
whether ( 1 ) the result of a two- 
factor calculation is to be added, 
subtracted, reset-added, or reset- 
subtracted into the data field 
specified in columns 2-7, or (2) 
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Figure 32. Calculation Specifications for Monthly Expense Distribution Report 
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factor 2 only is to be added, sub- 
tracted, reset-added, or reset- 
subtracted into the data field. 

40-48 Condition Conditions that will govern the 
performance of the calculation. 
Blank if performance is to be un- 
conditional. Permissible entries: 
all resulting-condition numbers 
defined on the input, data, and 
prior entries of the calculation 
specifications sheets, as well as 
LC, F1-F6, SB-SD, and also ne- 
gations of all of the foregoing 
conditions. 

49 Total/ T when the calculation is to be 

Detail performed at total-time, or D 

when the calculation is to be 

performed at detail-time. This 

column must not be left blank. 

50-51 Half Position-number to be half-ad- 

Adjust justed in the result of the calcu- 
lation. 

52-53 Position Highest-order position to be 

Adjust dropped from the result of the 

calculation. That position and 

any others to its right will be 

dropped. 



54-75 
76-77 



78-80 



(Blank) 
Page 



Card 
Number 



Not used. 

Page number, located in the 

upper right-hand corner of the 

sheet. 

Card number. 



The calculation specifications for the Monthly Expense 
Distribution Report are shown in Figure 32. 



Format Specifications 

This form (Figure 33) is used to describe the lines 
and the fields constituting the output. The two main 
classifications of format specifications are line and field. 

The entries on this sheet pertaining to each line 
supply the Report Program Generator with informa- 
tion such as the identification of the line, the form of 
the output (whether printed, punched, or written on 
tape), the next line of output, carriage form vertical 
spacing and skipping, the punch stacker into which 
punched output cards are to be selected, and the condi- 
tions under which the line will become output. 

The entries on this sheet pertaining to the fields 
within a line supply the RPG with information such 
as field name, the rightmost position of the field in the 
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output line, the conditions under which the field will 
be placed in the line prior to printing, punching, or 
writing on tape, the edited field-length, and informa- 
tion controlling zero-suppression and editing. 

Much of the information for the entries on the for- 
mat specifications sheet is taken from the spacing 
chart previously described. 

Entries for hierarchical line specifications must be in 
the same order as they will appear on the report. 
Entries for all of the fields within a line must follow 
the entry for that line specification. The field entries 
may, however, be in any order after the line specifica- 
tion. 

Format 

In column 1 a letter must be entered that designates 
the entry as a format specification. An L in that column 
identifies the entry as a format specification for a line. 

Line 

Columns 2-4 identify the line being specified. Entries 
for these columns are taken from the spacing-chart 
entries that define the line by type, level, and number, 
as explained previously under ibm 1403 Spacing Chart. 

The entry in column 2 specifies the type of the line. 
It must be H for a heading line, D for a detail line, or 
T for a total line. An important consideration in assign- 
ing type to a line is the difference between a total line 
and a heading or detail line with regard to the record 
in the input area when the line is formed. This differ- 
ence can be noted from the block diagrams of the 
object programs generated by the RPG. Figures 48 and 
49 illustrate that the test for control-field changes, the 
performance of total-time calculations, and the forma- 
tion of total lines precede the function of removing 
fields from the input record. Thus, an input record 
that causes a control change cannot contribute data to 
total lines that result from that control change. 

The block diagrams also illustrate that detail calcula- 
tions, heading lines, and detail lines follow the removal 
of fields from the record in the input area, and thus 
that record can contribute to these calculations and 
lines. Therefore, the naming of a line according to 
type is not arbitrary, particularly with regard to total 
and detail lines. 

Column 3 specifies the level of the line, as explained 
under ibm 14G3 Spacing Chart. Column 4 specifies 
the number of the line within a given level. For ex- 
ample, in the invoice application spacing chart shown 
in Figure 60, there is one hierarchical (numerical) level 
of heading lines that includes five lines. Those lines 
have the line-identification codes Hll, H12, H13, H14, 
and H15. Although these heading lines are associated 



with customer number, which is the intermediate con- 
trol field (F2), the lines are level one because there 
are no heading lines of lower level. This illustrates 
the principle that line level is not necessarily equal to 
the number of the control field with which the line is 
associated. Because the level is numerical, the line 
numbers must be numerical to reflect their sequence 
within the level. 

As mentioned in the spacing chart explanation of 
the Classification of Lines, report lines to be used as 
output when a page-overflow condition occurs must 
be identified by an alphabetic-level character to reflect 
their independence from a hierarchy. The overflow 
heading line in the invoice application ( see Figure 9 ) 
is similar to the first normal heading line. For this 
reason there are two line-identification codes in Figure 
60 for the first heading line (Hll and HAA). As pre- 
viously mentioned, the line-number entry in column 4 
for a line with an alphabetic-level character, such as 
HAA, can be a number or a letter. Because there is 
only one page-heading line rather than a sequence, an 
alphabetic line-designation was used in the example. 

The entries on the format specifications sheet per- 
taining to lines must be in descending level-order for 
heading lines, and in ascending level-order for total 
lines. This is the normal order of printing related report 
lines, as can be noted on the spacing chart in Figure 7 
and on the printed report in Figure 4. 

Output 

Column 5 must contain an alphabetic X if the line 
is to be printed; otherwise it is left blank. 

Column 6 must contain an alphabetic X if the line 
is to be punched into an output card; otherwise it is 
left blank. 

If both printing and punching are being specified 
for the line, an X must be entered in both columns 
5 and 6. 

Column 7 must contain an alphabetic X if the line 
is to be written on magnetic tape; otherwise it is left 
blank. 

If printing, punching, and writing on tape are being 
specified, an X must be entered in each of the three 
columns, 5-7. 

Next Line 

Columns 8-10 define the next line to be printed, 
punched, or written on tape. This entry is made only 
if the next line specified in these columns should come 
unconditionally in the output after this line (the line 
being described in this entire line-entry). Otherwise 
columns 8-10 should be left blank. When a next line 
is specified in columns 8-10, that next line must be of 
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the same type and level as the line being specified. 
That is, columns 8-9 must be the same as columns 2-3. 

Space 

Columns 11-12 contain the number of line spaces to 
be taken before printing the line. 01, 02, or 03 specifies 
single, double or triple line-spacing before the printing 
of the line being specified. 

In columns 13-14 01, 02, or 03 calls for single, 
double, or triple line-spacing after the printing of the 
line being specified. 

Skip 

In columns 15-16 the entries 01-12 designate skipping 
to carriage tape channels 1-12, respectively, before 
printing the line being specified. 

In columns 17-18 entries 01-12 cause skipping to car- 
riage tape channels 1-12, respectively, after printing 
the line being specified. 

In preparing reports that require headings at the 
top of a page, format specifications usually control 
form-skipping upon overflow. For a simple report, 
however, no specifications are necessary to cause the 
forms to be advanced from the last printed line on a 
page to the first print line of the next page. Thus, if 
report specifications provide no forms control for over- 
flow, whenever the object program senses a punch in 
carriage tape-channel 12 while printing, it automatic- 
ally causes skipping to channel 1. When the 12-punch 



in the carriage tape is sensed while printing a total 
line, all total lines whose output conditions are met 
print before overflow-skipping occurs. 

Stacker 

In column 19 the entry of a 4 or 8 causes the card 
containing this line to be selected into the correspond- 
ing 1402 punch stacker. When no selection is desired, 
column 19 must be left blank. 

Line Output Conditions 

Columns 20-28 can be used to specify a maximum of 
three conditions under which the line being specified 
is to become output. If two or three conditions are 
entered on one line-entry, they are considered in an 
and relation. The entries in these columns can be any 
of the resulting conditions defined on the other speci- 
fications sheets, as well as OF (overflow), LC (last 
card), IP (first page), F1-F6 (a change in control 
fields 1 through 6), SB-SD (sense switches), and 
negations of any of these. If a line is referenced by a 
previous entry as a next line, columns 20-28 are left 
blank. This is because its line-output conditions must 
be the same as those for the line which referenced it. 
A line will appear in the output only if: 

1. Line-output conditions for the given line are speci- 
fied and fulfilled, or 

2. The line was specified as the next line of another 
line for which the output conditions are fulfilled, or 
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3. The line is of lower level in a hierarchy than 
another line of the same type for which the output 
conditions are fulfilled. 

To illustrate the first principle, in Figure 34 the line 
Hll is specified to be printed when condition 04 is met. 
Because condition 04 is defined on the input specifica- 
tions sheet to be the presence in the input area of a 
record containing an L in column 80, the first heading 
line will be printed when that record is present. 

The second principle is illustrated in Figure 35. 
Heading line H12 will print only after line Hll prints, 
because the format specification of Hll contains a 
next line entry of H12. Note that no output conditions 
are specified for H12. 

A line conditioned by OF cannot be associated with 
any lines not conditioned by OF. Thus, a line condi- 
tioned by OF cannot specify a next line not condi- 
tioned by OF; nor can a line not conditioned by OF 
specify a next line conditioned by OF. 
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Figure 35. Conditioning Lines to be Used as Output 

The third principle with regard to line-output con- 
ditions relates to the specification of hierarchies of lines 
described extensively under ibm 1403 Spacing Chart. 
Lines related in a hierarchy must be of the same type 
and must have numerical-level designations that reflect 
their relative positions within the hierarchy. The proc- 
essing principle underlying a hierarchical relationship 
is that lines of a higher level govern lines of lower level. 
Thus, when the output conditions are fulfilled for T3x 
lines, the object program will force Tlx and T2x lines 
to come before the T3x lines in the output without 
regard for the line-output conditions of the Tlx and 
T2x lines. This is precisely what happens in the Monthly 
Expense Distribution Report. 

In addition, multiple lines within one level in a 
hierarchy must be referenced by next line designations 
rather than individual line-output conditions whenever 
there is a higher level of lines in the hierarchy. Thus, 
H21 must call for H22 as a next line and H22 must 
call for H23 as a next line to ensure that all three will 
be present in the output when H3x lines precede them. 

In the invoice example, the H15 line has a separate 
condition from the Hll, H12, H13, and H14 lines, and 
so it is not called for as a next line by H14. If there 



were heading lines of level two, the H15 line would 
be missing whenever the level-two lines forced the 
level-one lines to follow in the output. Such a specifi- 
cation error could be corrected in two ways. 

The first solution is to cause all five of the level-one 
heading lines to print when the Order Data card is 
present (condition 05) rather than the first four lines 
when the Shipped Via card is in the input area (condi- 
tion 04). Then the next line reference can be used in 
the H14 line-entry to call for H15. 

The other solution is to put aside the heading line 
hierarchical relationship by naming the supposed 
level-two lines HBx and the level-one lines HC1, HC2, 
HC3, HC4, and HC5. The level-one lines can then 
have the same output conditions that they now have. 
The two levels of lines are then independent of one 
another, and each prints according to its own condi- 
tion. 

If the conditions for both levels were fulfilled simul- 
taneously, the lines would appear according to the 
order of their entry on the format specifications sheet. 
Therefore, even if alphabetic-level designations were 
used, specify the level-two lines before the level-one 
lines to maintain the descending order of heading lines 
in the output. 

In applications requiring multiple line-levels (minor, 
intermediate, major) that occur simultaneously, the 
specification of hierarchically-related lines with appli- 
cable next-line designations results in a faster object 
program than does the specification of independent 
lines. If, however, the individual conditions of lines of 
lower level cannot be ignored when the conditions are 
fulfilled for lines of a higher level within the same type, 
numerical-level designations should not be used. 

For example, assume minor totals to be conditioned 
to print on Fl and SB, intermediate totals on F2 with 
no sense switch conditioning, and major totals on F3 
and SC. With line names Tlx, T2x, and T3x, the minor 
and intermediate lines print before the major lines, 
when F3 and SC are on without regard for the setting 
of sense switch B. When F3 is on and SC is off, the 
major lines do not print because their conditions are 
not met; the intermediate lines print because their 
conditions are met. They force the minor lines without 
regard for SB. For correct processing, name these 
lines with alphabetic-level designations such as TAx, 
TBx, and TCx. Then, each level will have its condi- 
tions checked independently. Again the lines must 
appear in the specifications in the order in which they 
should appear in the output. 

In summary, the line output conditions are equally 
as important as the type and level distinctions in 
the relationship of lines to one another. Careful analy- 
sis should be made of these conditions when the lines 
are named. 
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CONDITION IP (FIRST PAGE) 

IP is a condition unique to the format specifications. 
It is fulfilled at the beginning of processing before any 
input records have been read. The purpose of this 
condition is to cause the printing of a cover sheet or 
page heading lines on the first sheet that print as a 
result of OF on the following sheets. Thus, lines that 
contain only constant information and that appear in 
the output before any input records are processed can 
be printed, punched, or written on tape as a result of 
condition IP. Because this condition precedes any in- 
put record, no information from the input file can 
appear in a line conditioned by IP. Thus, a page head- 
ing line that contains a date from the first record in a 
file will not contain that date on the first sheet if the 
line is conditioned by IP. The line should be condi- 
tioned by the resulting-condition number that repre- 
sents the date header record. 

VARIABLE LINE-OUTPUT CONDITIONS 

Some applications require that varying conditions gov- 
ern the appearance of a line in the output. A line that 
is governed by or conditions must be specified with a 
separate line-entry for each or condition. The first line- 
entry made in the normal manner will specify the first 
or condition. Each succeeding line-entry consists of an 
L in column 1 and the or condition in columns 20-28 
as required. 

For example, if a detail line called DAA is to be 
written on tape when any one of the following three 
conditions is met: (1) condition 02 and not condition 
05; (2) condition 06, or (3) condition 09; the proper 
entries on the format specifications sheet are as shown 
in Figure 36. 
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Figure 36. Or Line-Output Conditions 

A line whose output is governed by conditions in an 
or relation can be governed by OF only if OF is part 
of every or condition. For example, if a heading line 
identified as H25 is to be printed upon occurrence of 
overflow and either conditions 07 or 13, the proper 
entries on the format sheet are as shown in Figure 37. 
Note: Columns 29-75 are left blank for line specifica- 
tions (L in column 1). As explained later, columns 
76-80 pertain to both line and field specifications. 
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Figure 37. OF as an Or Line-Output Condition 

Format 

In the description of a field within a line or the defini- 
tion of a constant column 1 contains an F, B, K, or W. 
The meaning of these entries is as follows: 
F — identifies the entry as a field specification for a 
data field that will not be blanked after it is placed 
in an output line. 
B — identifies the entry as a field specification for a 
data field that will be blanked after it is placed in 
an output line. This entry causes processing similar 
to a readout and reset total operation on an ac- 
counting machine. 
K — identifies the entry as a field specification that uses 
a constant. 

W — identifies the entry as a field specification that 

defines a constant or an edit control-word. 
Note: Columns 2-28 are blank in a line-entry that 
specifies a field or a constant. 

Field Name 

Columns 29-34 state the name of the field to be inserted 
in the line whose specification immediately precedes 
the field entry. An entry with a B in column 1 must 
contain a field name from columns 2-7 of the data or 
calculation specifications sheets. An F entry in column 
1 can also contain a field named in the data or calcula- 
tion specifications, or it can have a WORDxx defined 
by a W-entry elsewhere in the format specifications. 
Those field names that are less than six characters long 
must be left-justified. The entry of a K in column 1 re- 
quires a blank field name. The entry of a W in that 
column must have a field name of the form WORDxx, 
where xx is a number in the range 00-99. W-entries are 
fully explained later in this section. 

Field End 

Columns 35-37 contain the number of the rightmost 
position of the field in the output line as shown on 
the spacing chart. These columns are left blank for a 
W-entry. 

Field Output Conditions 

Columns 38-46 provide for a maximum of three condi- 
tions, considered in an and relation, under which the 
field being specified is to be placed in the output line. 
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The same conditions that can govern line output are 
acceptable in these columns. If several conditions in an 
or relation govern the output of the field, separate 
entries must be made, each giving all of the informa- 
tion required for the field as well as each or condition. 
For example, if field A is to be included in an output 
line when sense switch C is off or when condition 16 
is met, the appropriate format specification entries 
are as shown in Figure 38. 
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Figure 38. Output of a Field Governed by Or Conditions 

Z (Zero Suppress) 

A Z is entered in column 47 to zero-suppress a field on 
the output line without using an edit control-word. 
This entry causes the object program to suppress high- 
order zeros and strip off the zone in the units position 
of the field. 

Constant or Edit Control Word 

Columns 48-50 specify the length of an edit control- 
word or a constant being defined in columns 51-75. 
The constant or edit control-word must be left-justified 
in column 51. 

In the invoice example the total invoice-amount for 
each customer prints on the next line below the last 
minor total for that customer. The total is identified 
by the constant INV TOT on the same line. The 
amount, which will not exceed 99999.99 dollars, is 
edited with an edit control-word to print $xx,xxx.xx#. 
The necessary format entries to specify this total line 
are shown in Figure 39. This figure also illustrates the 
use of the spacing chart with the format specifications 
sheet to produce a total line in the desired format. 

The Report Program Generator uses the program 
editing rules given under Editing in the ibm 1401 Data 
Processing System Reference Manual, Form A24-1403. 

A constant that is used only once should be specified 
by a K-entry in the manner illustrated in Figure 39. 
An edit control-word used only once should be entered 
beside the field to be edited as shown in the same 
figure. Both constants and edit control-words used 
more than once should be defined by a W-entry to 
produce a more efficient object program. Each W-entry 
must have a field name of WORDxx, where xx is a 



number (in the range 00-99) unique to each entry. 
Columns 48-50 must contain the length of the word 
and columns 51-75 must contain the word itself, left- 
justified. Thus, a W-entry is simply the definition of a 
word to be used elsewhere in the specifications. Such 
an entry does not have a fixed place in the format 
specifications. The W-entries can appear anywhere on 
the format specifications sheets, except on the first line. 
(The first format specifications must have an L in 
column 1.) 

When a constant, defined by a W-entry somewhere 
on the format sheet, is to be part of an output line, an 
F-entry is used in column 1. The F-entry has the field 
name of the constant (WORDxx) in columns 29-34 
and the position of the constant in the line in columns 
35-37. 

Figure 40, which is an excerpt from both the spac- 
ing chart and the format specifications sheets for the 
Monthly Expense Distribution Report, illustrates the 
use of both W- and K-entries. Two K-entries shown 
on lines 020 and 030 of that figure specify constants 
that compose the first heading line, MONTHLY EX- 
PENSE DISTRIBUTION REPORT. Lines 050 and 
070 are two F-entries using constants whose field 
names are WORD01 and WORD02. These two field 
names are defined by the W-entries of lines 170 and 
180 as REPORT DATE (eleven characters) and 
PAGE (four characters), respectively. 

As mentioned, but not illustrated previously, an edit 
control-word can be defined as WORDxx by a W-entry 
on the format sheet. This permits the name, WORDxx, 
to be entered in columns 51-56 to edit a data field. In 
Figure 41 the third and fifth lines use WORD22 to 
edit the two data fields, GROSS and NET. The 
W-entry, defining WORD22 as $bb,bb0.bb is shown 
on the ninth line. 

Note: Words defined by W-entries in the format speci- 
fications can also be used as factors in the calculation 
specifications. This is one means of specifying a literal 
of more than six characters. 

Page Number 

Columns 76-77 are used for page numbering in both 
line and field specifications. The page-number entry 
is in the upper right-hand corner of the format sheet. 
The pages are numbered consecutively beginning with 
the spacing chart as page number 01. 

Card Number 

The first twenty lines of the sheet have preprinted 
card numbers in columns 78-80, as explained in this 
corresponding paragraph under Input Specifications. 
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Summary of Format Specifications 

Having completed the spacing chart showing the lay- 
out of the desired lines and the input, data, and calcu- 
lation (if required) sheets, the user writes the format 
specifications for the output lines. 

The following general rules govern the order of the 
entries on the format sheet: 

1. The first entry must be a format specification for 
a line. 

2. An entry made for a given line must be followed 
by entries for each field that must appear in that 
line. 

3. Entries for lines should be specified in the order 
in which the lines must appear in the output. 

The following is a summary of entries on the format 
specifications sheet. 

Columns Name Explanation 

1 Format Letter (L, F, B, K, or W) to 

identify the line-entry as a for- 
mat specification. 

Columns 2-28 apply to line-specification entries only. 

2-4 Line Line-identification code for this 

line (taken from the spacing 
chart). 

5 Print X if this line is to be printed. 

6 Punch X if this line is to be punched. 

7 Reserved X if this line is to be written on 

magnetic tape. 

8-10 Next Line-identification code of the 

Line next line provided that it is to be 

used as output under the same 
output conditions as those gov- 
erning the line being specified. 
The next line must be of the 
same type and level as the line 
calling for a next line. 

11-12 Space Numbers 01, 02, or 03 for single, 
Before double, or triple line-spacing 
before printing this line. 

13-14 Space Same as columns 11-12, except 
After for spacing after printing. 

15-16 Skip 01-12 for skipping to carriage- 

Before tape channel 1-12 before print- 
ing. 

17-18 Skip Same as columns 15-16, except for 

After skipping after printing. 

19 Stacker 4 or 8 to select the card repre- 

senting this line into either the 
4 or the 8 punch-stacker pocket. 
Blank when not selecting. 



20-22 Line First condition to govern the ap- 

Output pearance in the output of this 
Condi- line. The following can be 
tion entered: any resul ting-condition 

number defined on the input, 
data, and calculation sheets; OF, 
LC, IP, F1-F6, SB-SD, and nega- 
tions of these. 

23-28 (Two Two other conditions to govern 

other the appearance in the output of 

condi- this line. Output conditions for 

tions) a given line are considered in an 

and relation. 

A line will be used as output 
only if: (1) its line-output con- 
ditions are specified and fulfilled, 
or ( 2 ) the line is specified as the 
next line in the L-entry of the 
preceding line, and that preced- 
ing line's output conditions are 
fulfilled, or (3) the line is of a 
lower level in a hierarchy than 
another line of the same type for 
which the output conditions are 
fulfilled. 

Columns 29-75 pertain to field specifications only. 

29-34 Field If the field is not a constant, the 

Name name of the field. That name 
must appear in columns 2-7 of 
either the data or calculation 
sheet or be a WORDxx. If the 
field is a constant defined by a 
W-entry, the name is WORDxx. 
If the field is a constant not de- 
fined as WORDxx, these columns 
are blank. 



35-37 


Field 


Print position of the units posi- 




End 


tion of the field. 


38-40 


Field 


First condition to govern the in- 




Output 


clusion of the field in the output 




Condi- 


line. The same conditions are ac- 




tion 


cepted here as are accepted in 
columns 20-22. 


41-46 


11 VTW 


Two other conditions with the 




other 


same function as the first condi- 




condi- 


tion in columns 38-40. The field- 




tions) 


output conditions for a given 



field are considered in an and 
relation. If a field must be in- 
cluded unconditionally in an out- 
put line, columns 38-46 are blank. 
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47 Zero Z to zero-suppress a field without 

Suppress using an edit control-word. 

48-50 Field Length of either an edit control- 

Length word used with the field or a 
constant that is defined in col- 
umns 51-75. 

51-75 Constant Either a constant (numerical or 
or Edit alphameric ) or an edit control- 
Control word that is being used or de- 
Word fined. 

76-77 Page Page number of this specifica- 

tions sheet, located in the upper 
right-hand corner. 

78-80 Card The first twenty lines of each 

Number sheet are prenumbered. 



COLUMNS 


PUNCHES 


EXPLANATION 


1-4 


CNTL 


Identifies the card. 


5 


One of these: 


Core-storage capacity of 1401 




3-6 


system to be used to generate 
object program. See Note 7. 


6 


One of these: 


Core-storage capacity of 1401 




1-6 


system to be used to execute 
object program. See Note I. 


7 


1 or blank 


1 if sense switches B-G are used; 
blank otherwise. 


8 


1 or 2 


1 for IBM 1403, Model 1 (100 
print positions); 

2 for IBM 1403, Model 2 (132 
print positions). 


9 


M or blank 


M if multiply-divide special fea- 
ture is installed on 1401 system 
used to execute object program; 
blank otherwise. 


10-12 


Tape input 


Length for fixed-length records, 




record-length 


or VVV for variable-length rec- 
ords. 


13-14 


Tape input 


For fixed-length, blocked input 




blocking 


records, the number of data rec- 




factor or 


ords per input tape block (input 




blank 


blocking-factor); for variable- 
length input records, blank. 


15 


1 or blank 


1 if header label on tape input 
is to be bypassed; blank other- 
wise. 


16 


2-9 or blank 


Number (2-9) of tape data files 
to be processed; blank if only 
one. 


17-19 


Output tape 


Length of output tape records; 




record length 


blank if 132 characters. 




or blank 




20-75 


Blank 


(Not used) 


76-80 


Identification 


If program identification is to be 
punched in the symbolic object- 
program deck, that identifica- 
tion; blank otherwise. 


NOTE 1: 


The core-storag« 


» capacity of a 1401 system is 


represent 


ed by the follow 


ing numbers: 


1 - 


- 1400 


4- 8000 


2- 


-2000 


5-12000 


3 - 


-4000 


6-16000 



Control Card 

The Report Program Generator requires one control 
card. The user prepares the card and places it, as ex- 
plained under Second Phase of Report Generating, 
in the RPG processor deck. Figure 42 shows the con- 
trol card format. 

Special Feature Specifications 

An ibm 1401 Data Processing System equipped with a 
special feature to read 51-column cards reads either 
standard 80-column or 51-column cards, depending 
upon the operating mode. When operating in the 51- 
column mode, columns 1-51 correspond to columns 
15-65 of an 80-column card. Thus, in any specifications 
of card columns for 51-column input data file cards, 
the entry is the column number plus 14. For example, 
if a minor control field in the 51-column cards of the 
input data file is punched in columns 2-7, the proper 
entry in columns 44-46 of the input specifications 
sheet is 021. 



Summary of First Phase of Report 
Generating 

After the information relevant to the desired report 
has been described on the spacing chart and the four 
specifications sheets, the user prepares the cards that 
constitute the source deck for the Report Program 
Generator. He punches one card for each line-entry on 
the specifications sheets. The control card, prepared as 
described, is placed ahead of the specifications cards. 
The sections of the source deck are now in the order: 

1. control card, 

2. input specifications cards, 

3. data specifications cards, 

4. calculation specifications cards, and 

5. format specifications cards. 



Figure 42. Format of KFG Control Card 
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Second Phase of Report Generating 

The second phase is developing the object program 
in symbolic language. This is done by a machine pass 
through the ibm 1401 of the specifications source deck 
and either the Card or the Tape Report Program Gen- 
erator processor deck. Both the Card and the Tape 
RPG processor decks contain comments cards in five 
appropriate places in each deck. They identify where 
the user must insert both the control card and each 
group of specifications cards. For example, in the first 
part of each deck there are two comments cards 
punched # Place Control Card After This Card and 
* Place Control Card Before This Card. At four other 
places in each deck there are two comments cards 
between which the user places the appropriate speci- 
fications cards. 

The output of this machine pass is 

1. the specifications source deck, which is selected 
into the 1 stacker pocket, 

2. the Card or the Tape RPG processor deck, which 
falls into the NR stacker pocket, and 

3. the object program deck in symbolic language, 
which falls into three pockets. The first part of the 
object program falls into the NP stacker pocket, 
the second part falls into the 4 pocket, and the last 
part of the program falls into the 8/2 pocket. 

Because proper order of the cards in the object pro- 
gram deck must be maintained, these cards should be 
removed from the stackers and placed face-down in 
the following order: NP stacker, stacker 4, and stacker 

8/2. 



Checking the Specifications 

During the generation of the object program certain 
errors, if present in the specifications source deck, 
cause the RPG processor to halt. Because a halt ne- 
cessitates the correction of the error and restart of the 
generation phase from the beginning, check the speci- 
fications carefully for the following errors before be- 
ginning generation. 



Kind of 
Specification 


Reason for Program Halt 


Control 
Input 


Control card missing. 
Column 1 not C, S, or * . 
Resulting condition (columns 42- 
43) blank. 


Data 


Column 1 not Dor*. 
Field source not defined in the 
input specifications. Status (col- 
umn 11, 14, or 17) not B, Z, N, 
or P. 



Calculation 



Format 



Status (column 11, 14, or 17) not 
B, Z, N, P, U, L, E, or H. 
Total/Detail (column 49) not T 
orD. 

First format card not a line spe- 
cification (column 1 not an L). 
Column 1 not L, F, B, K, or W. 
Type of line (column 2) not H, 
T, or D. 

Output medium (columns 5-7) 
not specified. 
Final (normal) halt. 
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Third Phase of Report Generating 

The third phase of report generating converts the out- 
put of phase two, which is the object program in sym- 
bolic language, to an object program in 1401 machine 
language. Either a Symbolic Programming System 
deck or a 1401 Autocoder system tape can be used to 
perform the assembly. When using 1401 Autocoder, 
the user must provide the proper control cards to 
enter the SPS phase. 

If the user wishes to incorporate his own symbolic 
subroutines in the object program, he places them in 
the proper place in the object deck before phase three 
begins. See Inserting Subroutines in Object Program. 



Program Storage Requirements 

After the object program has been assembled in ma- 
chine language, the user can determine from the as- 
sembly listing how much storage the program re- 
quires. With regard to programs that process tape in- 
put records, the maximum block length that the object 
program can accommodate is directly related to the 
size of the program. After assembly, the user can sub- 
tract the address associated with the label RILSS1 
(located two lines before the END card) from the 
maximum storage address minus two. For a machine 
equipped with 4,000 positions of core storage, the 
maximum storage address minus two is 3999 — 2, or 
3997. The result is the amount of available storage for 
an input tape block. 
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Fourth Phase of Report Generating 

The fourth (final) phase of report generating is the 
execution of the object program to produce the de- 
sired output. The input is a data file of cards in the 
1402 read feed or magnetic tape on tape unit 3. The 
output produced is the output the user has specified. 
The following list includes the output that can be 
produced when processing card-input data files: 

A printed report. 

A report punched into cards. 

A printed report and a report punched into cards. 

A printed report with selected information punched 

into cards. 

A printed report with summary totals punched into 

cards. 

For processing tape-input data files, the following 
list describes the output that can be produced: 
A printed report. 
A report punched into cards. 

A report written on magnetic tape mounted on tape 
unit 4. 

A combination of any or all three listed above. 
A printed report with certain selected information 
punched into cards and other selected information 
written on magnetic tape. 

A printed report with summary totals punched into 
cards and exception records written on magnetic 
tape. 



Sense Switches 

The object program produced by the RPG permits 
using certain sense switches that have specified func- 
tions. For programs that process card files, only sense 



switch A (last card) is necessary. Tape object programs 
require sense switches E, F, and G. Sense switches B, 
C, and D can be used to govern processing at the 
user's discretion. Except for switch E in a tape appli- 
cation, the object program tests the switch settings at 
the beginning of the run and maintains that setting 
throughout the run. Manually changing a switch other 
than E during processing is not recognized by the 
object program. In tape object programs there is a halt 
after each file has been processed. If the next file is to 
be processed, sense switch E must be set off (down) 
and the start key must be pressed. If the next file is to 
be bypassed, sense switch E must be set on (up) and 
the start key pressed. 

Sense switches F and G are used in tape object pro- 
grams to control the action of the tape error routine. 
If an error in reading a tape record occurs, the object 
program automatically attempts to read the record ten 
times. If the tape validity error persists, the program 
tests switch F. If F is on, the program processes the 
record, disregarding the validity error. If F is off, 
the program halts. If switch G is on, the user can press 
the 1401 start key for nine more read attempts. If G 
is off, the user can attempt to correct the error record 
manually by setting the ibm 1401 console tape select 
switch to the D-mode and pressing the start key. The 
record will be read once more. After scanning storage 
to locate the erroneous character, the user can attempt 
to correct the error from the console. When the cor- 
rection has been made and the tape select switch has 
been returned to the N-position, processing can be 
continued by pressing the console start key. 

A tape validity error while writing a tape record 
results in a maximum of fifty attempts to write the 
record. If the error persists, the program halts. A new 
tape should be mounted and the program restarted. 
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Suggestions and Recommendations 



Split Control-Fields in Input Records 

Most control fields consist of several contiguous char- 
acter-positions in each record. The explanation given 
under Control Fields in Input Specifications is based 
upon this usual arrangement. However, when a con- 
trol field is "split," that is, when all of its characters 
are not located in adjacent character-positions, further 
consideration is required to specify the control field 
and the condition that represents a change in that 
field. 

For example, input records contained in a card file 
might have the minor control field punched in columns 
2-7, the intermediate control field in columns 35-36 
and 10-12, and the major control field in columns 
16-19. The input specifications sheet for this example 
would include the control-field entries shown in Fig- 
ure 43. 

Operations to be performed when there is a change 
in the minor control field would use the condition 
entry Fl. Operations to be performed when there is a 
change in the split intermediate control field would 
use the condition F2 (not F3). Operations to be per- 
formed upon a major control-field change would use 
the condition F4. 

Consider the action that results from a change in the 
control-data of the split intermediate control-field. If 
a change occurs in columns 35-36, conditions Fl and 
F2 are fulfilled. If a change occurs in columns 10-12, 
conditions Fl, F2, and F3 are fulfilled. Thus, any op- 
eration whose performance is conditioned by F2 will 
be executed upon a change in either of the two parts 
of the intermediate control-field. But, should the con- 
dition F3 be used to condition an operation, that 
operation will occur only upon a change in the major 
control field or a change in the portion of the inter- 
mediate control field punched in columns 10-12. Thus, 
no intermediate change will be recognized when there 
is a change only in columns 35-36. 

The order of specifying the parts of the split con- 
trol field is not fixed. In the example, it does not 
matter whether card columns 35-36 are specified as 
field 2 or field 3. The important points are that all por- 
tions of the split control field must be specified in adja- 
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Figure 43. Control-Field Entries, Including One Split Field 
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cent fields on the sheet (fields 2 and 3 are beside one 
another) and only the lowest-numbered field must be 
used to represent a change in the split control field. 
(See paragraph 1 in the section Description of the 
General Block Diagrams for another approach to split 
control fields.) 



Program Efficiency 

Certain alternatives exist in writing the specifications 
for a report. By making appropriate choices, the user 
can save both storage capacity and program execution 
time. 

Input Specifications 

Sequence checking, although a valuable and some- 
times necessary function, uses a considerable amount 
of storage space and execution time. It should be used 
only when necessary. 

Arranging the line-entries for non-sequential input 
records ( such as CAA and CBB ) so that the ones with 
the same control fields are consecutively-specified 
saves storage space. 

Types of input records that occur most frequently 
in the input file should be specified first. For example, 
in the input specifications of the Monthly Expense 
Distribution Report the line-entry specifying detail 
cards, type CBB, precedes that for the report date 
card, type CAA (there is only one type CAA card in 
the file). 

When a digit that could never have a zone over it 
or a zone that could never have a digit under it is 
specified as a record code, describing that digit or 
zone as a character (C in column 10) produces fewer 
instructions than describing it as a digit or a zone 
(D or Z in column 10). 

Data Specifications 

The order of writing the lines on the data sheet is 
unrestricted, unless there are more than three sources 
of a field. On the data sheet for the Invoice Report, 
shown in Figure 62, the entries for the data fields are 
in the order of their appearance on the report. Both 
storage space and execution time can be saved in this 
application by re-arranging the order of the specifica- 
tions so that those having the same field source (col- 
umns 20-22 ) are together. Such re-arrangement can be 
done even after the specifications cards are punched. 
Figure 44 shows the re-arranged data specifications 
for the Invoice Report. 

For data fields with multiple sources, storage space 
and execution time are saved if the consecutive lines 
or the source-field entries are arranged so that like 
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field sources follow one another. In a hypothetical ex- 
ample there are four data fields to be specified. If 
written in the order of field A, B, C, and D on the 
data sheet, they might appear as shown in Figure 45. 

Re-arranging the line-entries and transposing the 
field sources of FLDC as shown in Figure 46 would 
save storage capacity and execution time in the object 
program. 

If a data field has both a status condition and mul- 
tiple field sources, storage space and execution time 
are saved by arranging the field sources so that the 
same sources with the same conditions are together 
(Figure 47). 
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The Numeric entry ( N in column 23 ) should not be 
used when the user knows that his source field does 
not contain zone information in positions other than 
the units position. Using the N-entry unnecessarily, 
wastes both storage space and execution time. 



Calculation Specifications 

When possible, specify detail-time calculations (those 
with a D in column 49) consecutively, and total-time 
calculations (T in column 49) consecutively, to save 
both storage space and execution time. Also, when- 
ever order permits, calculations governed by the same 
conditions in columns 40-48 should be specified to- 
gether. 



Figure 45. Data Specifications for Multiple Field Sources 
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Format Specifications 

Data fields should not be blanked after use unless 
blanking is essential. Unnecessary use of a B instead 
of an F in column 1 wastes storage capacity. 

If the Next-Line specification in columns 8-10 is 
applicable, using it will save both execution time and 
storage space. 



Figure 46. 



Re-arranged Data Specifications for Multiple 
Field Sources 
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Figure 47. Data Specifications with Same Field Sources Arranged Together 
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Description of the General Block Diagrams 



Object Program to Process Card Input Files 

The following explanation applies to Figure 48, the 
block diagram of an object program generated by the 
Card Report Program Generator. The paragraph num- 
bers correspond to the circled numbers in that figure. 

1. One read instruction is generated in the entire 
object program. This instruction (READ1) is fol- 
lowed by an instruction labeled ENTRY1. This is 
the first point where a user can insert his own 
subroutine in the symbolic deck before assembly. 
Peculiar manipulation of data fields, for example, 
might be more efficiently done at this time by 
inserting hand-coded instructions. The instructions 
to combine the portions of a split control field 
into one field located at storage location 0090, for 
instance, could be inserted at ENTRY1. This field 
could then be specified on the input sheet as one 
field ending in 090. 

2. For each non-sequential record (i.e., a record as- 
signed an alphabetic sequence designator, such as 
CAA on the input specifications sheet), a test 
routine exists in the object program. The first such 
routine is labeled DA0100; the second, DA0200; 
and so on. As many of these routines are generated 
in a given object program as there are non-sequen- 
tial records specified for the input file. The function 
of each routine is to check the record in the input 
area for the record codes specified in one entry of 
the input sheet. If the first routine finds that the 
codes in the input record are different from the 
codes for which the routine is checking, it branches 
to the second routine, where a similar test is made 
using the next set of record codes specified. This 
testing process continues until either the input 
record is found to be one of the non-sequential 
records specified, or it becomes necessary to check 
for one of the sequential records specified. If a non- 
sequential record is present, the routine sets a 
corresponding resulting-condition indicator on and 
modifies SWICH4 to branch to the proper routine 
that removes the data fields from the record (see 
block 8 in Figure 48 ) . The resulting-condition indi- 
cator remains on until another input record is read. 
If testing is to begin for a sequential record, the 
program enters SWICH1. 

3. For each sequential record (i.e., a record assigned 
a numerical sequence-number on the input sheet), 
a routine exists to which SWICH1 branches. The 
first portion of the routine is labeled RNxxxx. This 
sets SWICH1 to branch to the routine for the next 
record in sequence. This is followed by instructions 



labeled DNxxxx, which test for the presence in the 
input record of the record codes specified for this 
record on the input sheet. If the record is in its 
proper place in the numbered sequence within its 
control group, SWICH4 is modified to branch to 
the routine to remove the fields of data from this 
type of record. If, however, the input record is not 
acceptable to the object program at this point, a 
check is made to determine if there is another 
record specified in an or relationship. For instance, 
should two COls be specified, if the routine for the 
first one did not find the proper record codes, it 
would branch to check for the second C01 record. 
If, however, only one C01 record is specified and 
that record is not present after a control-field 
change, the program comes to a halt (ERR5EQ). 
All other errors in sequence come to the same halt 
to allow the user to insert a common error routine 
under the label ERR5EQ, if he desires. In the 
invoice application the second record in the se- 
quence, C02, is an optional record. The routine for 
this type of record includes a branch to a routine 
that properly processes optional record-types not 
present. This operation is described in paragraph 14. 

4. When the object program has determined which 
record is in the input area, it branches to a routine 
to test for control-field changes between that record 
and the previous record. The routine that checks 
for control-field changes in a non-sequential record 
is labeled TAxxxx. The routine that checks for con- 
trol-field changes in sequential records is labeled 
TNxxxx. When the control fields in all non-sequen- 
tial records are alike, there will be only one such 
routine for all non-sequential records that are con- 
secutively specified on the input sheet. The same 
is true for all sequential records. 

5. Calculations specified to be performed at total time 
are routines labeled TCALxx. Total calculations 
do not contain any information from the record in 
the input area. This is because total calculations 
are performed before information is removed from 
that record. Note that ENTRY2 precedes the total- 
calculation routine. This permits the user to insert 
under this label in the symbolic program any calcu- 
lation routine that he prefers to hand-code rather 
than to specify on the calculation specifications 
sheet. 

6. Total calculations are followed by the printing or 
punching of total lines whose conditions are ful- 
filled. Numerical-level total lines (total lines in a 
hierarchy) whose routines are labeled TllTxx pre- 
cede alphabetic-level total lines (total lines not in 
a hierarchy) whose routines are labeled TTxxxx. 
Page overflow is tested during the printing of total 



51 



w 



o 



hd 



O 



a. 
cr 

O 

p 

a. 

so 
>-d 
O 



© 



READ1 




Set SWICH4 
to remove fields 
from this record 
type 



Set SWICH4 
to remove fields 
from this record 
type 



Set SWICH4 
to remove fields 
from this record 
type 






© 



© 



© 



OUTxx 



\iy 


Store 

input 

record 




1 



Test for control- 
field changes; 
set indicators 



TAxxxx 
TNxxxx 



< ENTRY2 © 



Perform 
total- time 
calculations 



TCALxx 



Output num. - 
level total lines; 

output alpha. - 
level total lines 



TllTxx 
TTxxxx 



Test to set page 
count to zero; 
increase record 

and serial count 



Test overflow; 
total, heading 
lines 
OTxxxx 
OHxxxx 



SEROxx 




SWICH4 



Remove fields 

from 
input record 



CAAxx 

COlxx 

SERxxx 



RN0100 



a 



a 

0, 



O 



O 







Set SWICH1 

for next record 

in sequence 



DN0100 



Test record codes 

of record in 

input area 



Set SWICH4 
to remove fields 
from record in 
input area 




Optional 




Set 
Option Switch 
to YES 




( ENTRY3 ) 



Perform 

detail- time 

calculations 



© 



DCALxx 



HAxxxx 



Output alpha. - 
level heading lines; 
output num. - level 
heading lines 



OPROU1 



Set 
Option Switch 
to NO 



Restore input 
record to 
input area 



Halt 




Test overflow; 
total, heading 
lines 
OTxxxx 
OHxxxx 



Test overflow; 
total, heading 
lines 
OTxxxx 
OHxxxx 



To READ1 



Set all control— 
'field change indicators 
ON; change SWICH4 
to a halt 



lines. Overflow total lines (labeled OTxxxx) are 
printed after normal total lines if an overflow con- 
dition exists. Note that all normal total lines whose 
conditions are fulfilled precede overflow total lines. 

7. If a page number must be reset on the basis of a 
control-field change, that operation occurs at this 
time. Furthermore, record counts and serial num- 
bers are increased at this point if the conditions 
for increasing them are met. Record counts are 
increased because of the type of record in the input 
area. Serial numbers are usually increased because 
of control-field changes. 

8. SWICH4 is a branch instruction, modified in the 
routines for both the non-sequential and the se- 
quential records, to branch to the proper routine for 
processing the record in the input area. 

9. For each record specified on the input specifica- 
tions sheet there exists a routine whose first label 
might be CAAxx for a non-sequential record and 
COlxx for a sequential record. Furthermore, there is 
a routine labeled SERxxx to process page number, 
record counts, and serial numbers. When a sequen- 
tial record is optional, its absence in the sequence 
will cause a branch to the optional routine labeled 
OPROU1. Otherwise the program will branch to 
perform detail calculations. 

10. Just as ENTRY2 provides for a calculation subrou- 
tine before total calculations, ENTRY3 provides this 
facility before detail calculations. Detail calcula- 
tions are routines labeled DCALxx. Calculations 
that require entry to multiply or divide subroutines 
have a linkage to these subroutines, which are in- 
corporated when necessary in the generated calcu- 
lation routine. 

11. Because heading lines sometimes require informa- 
tion from the record in the input area, they are 
printed or punched at this point in the object pro- 
gram. The routine for alphabetic heading lines 
(heading lines not in a hierarchy) is labeled HAxxxx. 
The routine for numerical heading lines (heading 
lines in a hierarchy) is labeled HNxxxx. When 
block 11 is compared with block 6, it is apparent 
that the order in which heading lines are produced 
as output is the reverse of that for total lines. As 
previously stated, when the conditions are fulfilled 
for heading lines not in a hierarchy, those lines are 
produced before heading lines in a hierarchy 
whose conditions are fulfilled. Heading lines in a 
hierarchy appear in descending level-number 
order, but in ascending line-number order within 
each level. 

12. Detail lines whose output conditions are met follow 
heading lines. Both heading and detail line-output 
routines include tests for overflow. The overfiow- 
heading-lines routine is labeled OHxxxx. 



13. The test for last-card condition is labeled TSTL5T 
in the symbolic program. When the result of this 
test is yes, the object program sets all control-field- 
change indicators on, modifies SWICH4 to a halt 
and branch to READ1. The program branches to 
perform total calculations, prints or punches total 
lines, including total lines containing LC output 
conditions, and halts at SWICH4. When the result 
of the test for last card is no, the program branches 
back to READ1. 

14. For each type of sequential record that is specified 
as optional (e.g., record C02 for the invoice appli- 
cation), there is an optional routine labeled OUTxx. 
If, upon checking for the presence of an optional 
record the object program does not find it, the pro- 
gram branches to OUTxx. This routine stores the 
record contained in the input area, blanks the input 
area, and sets the option switch below block 9 to 
yes. Then the object program branches to block 9, 
which removes the fields from the optional record- 
type in the input area just as if it were present. The 
fields thus removed consist of blanks. In the invoice 
application the optional routine causes the Shipped 
To information from the previous invoice to be set 
to blanks in storage when the present invoice has 
no Shipped To information (when record C02 is 
missing). This operation prevents the printing of 
the previous customer's Shipped To information in 
the heading of an invoice that has no such informa- 
tion of its own. After removing the blank fields, 
the object program branches on the yes setting 
of the option switch to restore to the input area 
the record saved (record C03) in the optional 
routine, OUTxx. After setting the option switch to 
no, the object program branches back to SWICH1 
to test for the record that should be next in the 
sequence. The next record in the sequence of the 
invoice application is C03, which should be the 
record present in the input area. 

Object Program to Process Tape Input Files 

The following explanation applies to Figure 49, the 
block diagram of an object program generated by the 
Tape Report Program Generator. The paragraph num- 
bers correspond to the circled numbers in that figure. 
1. For Blocked Input Tape Records: 

The routine to get the next record, labeled NX7- 
REC, causes either a tape read instruction (READ1) 
to be executed or the next sequential record in the 
block to be positioned for processing, depending 
upon where the next record is located. After each 
tape read instruction, the test for end-of-file is 
made. When the last record has been processed, the 
program branches to the end-of-file routine, de- 
scribed in paragraph 13. 
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1. For Unblocked Input Tape Records: 

The instruction labeled NX7REC is the tape read 
instruction (there is no instruction labeled READ1). 
The end-of-file test is made. If the last record has 
been processed, the object program branches to the 
end-of-file routine, described in paragraph 13. If 
the last record has not been processed, the object 
program proceeds to block 2. The function, Position 
Next Record for Processing, does not exist for an 
object program to process unblocked tape records. 

2-12. Program operation is the same as in Figure 48, 
except that after block 12 in Figure 49 the object 
program returns to block 1. 

13. After processing the last record of a given file, the 
object program enters the end-of-file routine (EOF). 
The program determines whether all input files 
have been processed. If not, the object program 
halts to permit the user to mount the next reel if 
the files are contained on more than one reel. At 
this point the user can bypass the next file by first 
setting sense switch E on and then pressing the 
1401 start key. If he wants to process the next file, 
he leaves sense switch E off and presses the 1401 
start key. The program branches to NX7REC to 
resume processing. However, if all files have been 
processed, the object program sets all control-field- 
change indicators on, modifies SWICH4 to a halt, 
and branches to block 5 to perform total-time cal- 
culations (TCALxx). 
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Inserting Subroutines in Object Program 

After the generation of the object program in the lan- 
guage of the ibm 1401 Symbolic Programming System, 
subroutines written in SPS can be inserted in the object 
deck before assembly begins. The three insertion points 
for subroutines are ENTRY1, ENTRY2, and ENTRY3, 
as indicated in Figures 48 and 49. These entry points 
appear in the symbolic object program in the form 
shown in Figure 50. 
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Figure 50. Entry Points in Symbolic Form 

To insert a subroutine at ENTRY1, the user must 
change the instruction into two instructions. ENTRY1 
should be a branch to the beginning of the subroutine. 
The instruction to clear a word mark in CONF1 should 
follow ENTRY1. If the first instruction to be executed 
in the subroutine had the label SUBROU, the instruc- 
tions at ENTRY1 would be as shown in Figure 51. 
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Figure 51. Modifying ENTRY1 Instruction 



The instruction that exits from the subroutine 
branches to ENTRY1 + 004. This allows a return to 
the main line of the program. The subroutine, punched 
in cards, should be placed immediately in front of the 
END card in the symbolic object-program deck be- 
fore assembly (phase three). 

A subroutine inserted in the program at ENTRY2 
requires simply that the instruction labeled ENTRY2 
be changed to branch to the beginning of the subrou- 
tine. The exit from the subroutine should be a branch 
to TCAL00. ENTRY3 requires a similar change with a 
branch to DCAL00 as the exit from the subroutine. 

ENTRY1 allows manipulation of data fields immedi- 
ately after a record is read. Split control fields can 
readily be combined at this point. ENTRY2 and 
ENTRY3 allow for complicated calculations such as 
square-root functions or a table-searching operation. 
It is not necessary to provide multiply or divide sub- 
routines; the RPG provides either or both in programs 
that require them. 



Subroutine Labels 

Use caution in assigning labels in subroutines. The 
labels must be strictly alphabetic. Do not duplicate 
any of the field names assigned on the data and calcu- 
lation specifications sheets. Because all labels produced 
by the RPG processor are field names from those sheets 
or are numerical in at least one position, processing 
errors can be avoided if this principle is followed. 
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Suppressing Total Lines and Calculations 

Analysis of the block diagrams ( see Figures 48 and 49 ) 
shows that total calculations, total lines, and heading 
lines conditioned by control-field changes will be proc- 
essed whenever a record causes those changes. Ordi- 
narily such processing results in proper operation, but 
there are instances when control-field changes alone 
are not sufficient to govern calculations and line output. 
For example, at the beginning of a run a record whose 
control fields are compared with blanks causes 
changes in control. Although it is usually proper to 
process heading lines at the beginning of a run, it is 
not desirable to have total lines produced as output. 
Further, it may not be desirable to perform total calcu- 
lations on blank fields. Thus, it is necessary to doubly- 
condition total-line output and calculations that must 
not be performed due to a control-field change on the 
run-in. 

The suggested way to suppress these total operations 
is to govern their performance by the condition that a 
field is not blank as well as a control-field change. If a 
blank status is specified for a field that will contain 
valid information only after the first record has been 
processed, total operations can be suppressed on the 
run-in when that field is blank. 

Any object program produced by the RPG begins 
processing by checking the heading lines (block 11 in 
the diagrams) to determine whether any of them 
should become output on the condition IP. The pro- 
gram then continues through the last-record test (block 
13) to the instruction that reads a record. This first 
record causes control-field changes for all the fields 
specified on the input sheet for this particular record. 
If the first record is a date header it may not have any 
control fields, and so no control-field changes can 
occur. This is true in both the Monthly Expense Distri- 
bution Report and the Invoice Report illustrated in 
this bulletin. 

In the Monthly Expense Distribution Report the 
second record in the input file is an item record having 
three control fields. All three fields change when that 
record is compared with blank control fields preced- 
ing it in processing. Thus, all total calculations, total 
lines, and heading lines that are conditioned by only 
control-field changes will be processed. In the case of 
heading lines this is proper processing, but no total 
calculations or total lines are desirable at this point. 



Because no fields have been removed from the first 
item record when total operations occur, the blank 
status of a field whose source in the data specifications 
is that record can condition these operations. DEP- 
NUM is blank before the processing of the first item 
record, and it is a significant field throughout the re- 
mainder of the run. Therefore the blank status of this 
field ( condition 03 ) is used to prevent total lines from 
printing at the beginning of the run. All total lines are 
conditioned by their respective field changes and N03 
(DEPNUM not blank). 

In the invoice application the problem of total sup- 
pression is more extensive. The date header at the be- 
ginning of the run has no control fields. The second 
record in the input file is the SOLD TO header, which 
has only field 2 specified as a control field. Comparison 
of field 2 in that record with the blank field preceding 
it in processing produces a control change in field 2 
( and incidentally, in field 1 ) . If the total lines on the 
invoice were conditioned only by control-field changes, 
those lines would be printed before the heading lines 
of the first invoice. The total lines are, however, also 
conditioned by the blank status of the field ITEMNO 
(condition 07), so that the lines can be printed only 
when that field is not blank (N07 ) . Because this field 
is blank until the first item record is processed, no total 
lines can be printed at the beginning of the run. 

Suppressing totals at the beginning of an invoicing 
run is only part of the problem. For each invoice there 
is a change in control field 1 whenever an item record 
appears with a new item number. Between item-num- 
ber groups this change causes the total line for the last 
group to print. A problem in total suppression occurs, 
however, when the first item record of an invoice 
causes a change in control field 1. If Til were condi- 
tioned only by the field change, a Til line would 
appear when the first item record was checked for 
control changes. To prevent this unacceptable opera- 
tion, the Til line is also conditioned by N07 (ITEMNO 
not blank) and ITEMNO is blanked in the format 
specifications to ensure that it will be blank at the be- 
ginning of a new invoice. ITEMNO is blank, therefore, 
until after data fields are removed from the first item 
record of an invoice. These fields are removed ( block 9 
of the diagrams) after the comparing for control-field 
changes (block 4) and the processing of total lines 
(block 6). 



Sample Report Documentation 

Figures 52 through 59 show the specifications for the 
Monthly Expense Distribution Report. A few cards of 
the input file are shown in Figure 3, and the printed 



report is shown in Figure 4. 

Figures 60 through 65 show the specifications for 
the Invoice Report. A few cards of the input file are 
shown in Figure 10, and the report is shown in Figure 9. 
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